PascalABC. Записи.

[Gorny]

Даны сведения об игрушках: название игрушки, стоимость и возрастные границы (например, от 4 до 6 лет) Выдать на экран список игрушек для детей старше 3 лет

[ОДИНОЧЕСТВО В СЕТИ]

и чего не получается?

[notHaker]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

и чего не получается?

Думать... ссооррии за флуд.

[Gorny]

Сделал =) просто грюж сроки жмут, страхуюсь... сижу вот выполняю =))

[ai\ekcah^p]

program zad_toys;
uses crt;
type  toys=record
        nazvanie:string[20];
        cena:integer;
        vozrast:integer;
      end;
var
i,n:integer;
mas:array[1..6] of toys;
begin
 clrscr;
 writeln('введите количество игрушек-> ');
   readln(n);
  for i:=1 to n do
  begin

   write('название игрушки            -> '); readln(mas[i].nazvanie);
   write('цена                              -> '); readln(mas[i].cena);
   write('возрастные границы         -> '); readln(mas[i].vozrast);
  end;
   for i:=1 to n do begin
    if mas[i].vozrast>3 then begin
    writeln;
    writeln('*******');
    writeln(mas[i].nazvanie);
    writeln(mas[i].cena);
    writeln(mas[i].vozrast);
    end;

    end;
 readln;
end.