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

readln(vozr);

end;end;

Writeln;

Writeln('Samaya dorogaya igryshka:');

max:=igryshki[1].cena;

For i:=1 to 6 do

if igryshki[i].cena>max then begin

max:=igryshki[i].cena;

Writeln(igryshki[i].name, ' ', max); end;

Writeln('Igryshki dlya detei v vozraste 3 let:');

For i:=1 to 6 do

if igryshki[i].vozr=3 then begin

Writeln(igryshki[i].name, ' stoimostu ',igryshki[i].cena, 'tg'); end;

writeln('vvedite stoimost');

readln(x);

For i:=1 to 6 do

if (igryshki[i].cena<x) then begin

writeln('Igryshki ' ,igryshki[i].name, 'stoimostu ' ,igryshki[i].cena,' ne previshaut ',x,' tg' ); end;

writeln('vvedite vozrast ');

readln(a);

For i:=1 to 6 do

if igryshki[i].vozr=a then begin

writeln(igryshki[i].name , 'podxodyat dlya vozrasta' , igryshki[i].vozr); end;

readln;

end.

Задание 48.

Список книг состоит из 10 записей:

Поля: Фамилия автора;

Название книги;