Реферат: Одномерные массивы. Организация ввода и вывода данных

reset(f);

i:=1;

while not eof(f) do

begin

read(f,c);

a[i]:=c;

i:=i+1;

end;

for k:=1 to i do S[k]:=1;

for k:=1 to i do

for j:=k+1 to i do

if a[k]=a[j] then s[k]:=s[k]+1;

max:=s[1];

n:=1;

for k:=1 to i do

if max<s[k] then begin

max:=s[k];n:=k;end;

for k:=1 to i do

if s[k]=max then

writeln('simvol ', a[n],' vstrechaetsya ',n,' raz');

readln;end

.

Задание 52.

Напишите программу организующую хранение в файле нескольких записей (до 10) о результатах экзамена. Каждая запись содержит 3 поля: номер записи, фамилия, оценка. Организуйте вывод всей информации по форме: {1 Иванов 3}

Program Z1;

type ekzamen=record

n:integer;

fam:string [15];

oc:integer;