Решить задачу в стиле турбо паскаля 80-х годов.

Тема: Одномерные массивы

Известны данные о мощности двигателя (в л. с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л. с.

Uses Crt;

const

n=30;

type

tA=array[1 ... n] of integer;

tS=array[1 ... n] of string[30];

var

i:integer;

p, c:tA;

s:tS;

begin

ClrScr;

for i:=1 to n do begin

Write ('Марка автомобиля ', i,': ') ;

Readln (s[i]) ;

Write ('его мощность (л. с.) и стоимость (руб.) ; ') ;

Readln (p[i], c[i])

end;

Writeln;

Writeln ('Автомобили мощностью не более 80 л. с.') ;

for i:=1 to n do

if p[i]<=80 then Writeln (s[i]:30, p[i]:10, c[i]:10) ;

ReadKey;

end.