Решить задачу в стиле турбо паскаля 80-х годов.
Тема: Одномерные массивы
Известны данные о мощности двигателя(в л.с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л.с.
Решить задачу в стиле турбо паскаля 80-х годов.
Тема: Одномерные массивы
Известны данные о мощности двигателя(в л.с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л.с.
Тема: Одномерные массивы
Известны данные о мощности двигателя(в л.с.) и стоимости 30-ти марок легковых автомобилей. Напечатать стоимость каждого из автомобилей, у которых мощность двигателя не превышает 80 л.с.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program PowerAndPrice;
const
n = 30;
var
Power: array[1..n] of integer;
Price: array[1..n] of real;
i: integer;
begin
writeln('Мощность двигателя (л.с.):');
for i := 1 to n do
readln(Power[i]);
writeln('Стоимость автомобилей:');
for i := 1 to n do
readln(Price[i]);
writeln('Стоимость автомобилей с мощностью двигателя не более 80 л.с.:');
for i := 1 to n do
if Power[i] <= 80 then
writeln('Автомобиль ', i, ': ', Price[i]:0:2);
end.