Информатика, вопрос задал fzf92260 , 8 лет назад

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

Ответы на вопрос

Ответил DonPedro80
0
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.
Ответил Аноним
0
что будет если я Модератором скажу что ты акка создаешь
Ответил Аноним
0
как думаешь?
Ответил Аноним
0
могу докаазать даже
Ответил Аноним
0
кнч за тоблй никьо не смотриттпотомучто мало Модер на инфор, и неактив чуть они
Ответил Аноним
0
это тебе в пользу
Новые вопросы