Составить программу, которая формирует файл записей, содержащих информацию об автомобиле (название модели, год выпуска, цена, цвет), а также найти в массиве записей и вывести на экран названия моделей красного цвета, випускалиcя в 2000 году. p.s , заране огромное .

Нууу, предположу что всего 10 машин, программа будет правильна, потом можешь изменить, смотря для чего нужна.

mod(10), col(10) as string

god(10), zen(10),i as integer

Формирование массивов из машин:

for i=1 to 10

read(mod(i)) - Вводим модель

read(col(i)) - цвет

read(god(i)) - год выпуска

read(zen(i)) - цену

next

Нахождение:

for i=1 to 10

if col(i)="Красный" and god(i)=2000 then

write(mod(i));

end.