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

for j:=i+1 to 6 do

if spisok[i].class.bykva=spisok[j].class.bykva

then

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

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

readln;

Задание 47.

Написать программу, выдающую сведения об ассортименте игрушек в магазине. Структура записи: название игрушки, цена, количество, возрастные границы.

А)вывести названия игрушек, которые подходят детям до 3 лет;

Б)самая дорогая игрушка;

В)название игрушки, которая по стоимости не превышает х тг и подходит ребенку в возрасте до а лет.

Program Assortiment;

type Igryshki=record

name:string[15];

cena:integer;

kol:integer;

vozr:integer;

end;

var Magazin:array [1..6] of Igryshki;

i,j,max,x,a,b:integer;

Begin

for i:=1 to 6 do begin

with igryshki[i] do begin

writeln('Vvedite nazvanie igryshki',i);

readln(name);

writeln('Cena:');

readln(cena);

writeln('Kolichestvo:');

readln(kol);