Question

Сформировать массив, содержащий сведения об игрушках: название игрушки, стоимость, возрастные границы. Вывести на экран содержимое массива в виде таблицы с заголовками столбцов. Pascal ABC

Answer 1

type
  ttoy=record
    naim:string[30];
    stoim:integer;
    age1,age2:integer;
  end;
 
var
  atoy:array[1..50] of ttoy;
  i,n:byte;
begin
  Write('Количество игрушек: ');
  Readln(n);
  for i:=1 to n do
  begin
    Writeln('Игрушка № ',i);
    Write('Наименование: ');
    Readln(atoy[i].naim);
    Write('Стоимость: ');
    Readln(atoy[i].stoim);
    Write('Возрастные границы: ');
    Readln(atoy[i].age1,atoy[i].age2)
  end;
  Writeln('      Наименование игрушки        Стоимость Возрастные границы');
  for i:=1 to n do
    Writeln(atoy[i].naim:30,atoy[i].stoim:9,atoy[i].age1:10,
      ' - ',atoy[i].age2)
end.