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

for i:=1 to 6 do begin

with spisok[i] do begin

writeln('vvedite familiu ychenika',i);

readln(fam);

writeln('vvedite imya',i);

readln(imya);

writeln('vvedite ego klass',i);

readln(class.god);

writeln('vvedite bykvy klassa');

readln(class.bykva);

end;end;

writeln;

writeln('spisok odnofamilcev v odnom klasse:');

for i:=1 to 5 do

for j:=i+1 to 6 do

if (spisok[i].fam=spisok[j]. fam) and

(spisok[i].class.god=spisok[j].class.god)

and (spisok[i].class.bykva=spisok[j].class.bykva)

then writeln(spisok[j].fam, ' ',spisok[i].imya, ' ',

spisok[i].class.god.bykva,' ',

spisok[j].imya, ' ',spisok[j].class.god.bykva);

writeln('Ychashiesya tezki:');

for i:=1 to 5 do

for j:=i+1 to 6 do

if (Spisok[i].fam=spisok[j].fam)and(spisok[i].imya=spisok[j].imya)

then

writeln(spisok[j].fam, ' ', spisok[i].imya, ' ',spisok[i].class.god.bykva,' ',

spisok[j].imya, ' ', spisok[j].class.god.bykva);

writeln('Spisok ychashixsya s odinakovoi bykvoi klassa:');