Задача. Pascal. Массив

Написать программу для записи стоимость 3-х видов топлива и последующего вывода стоимости запрашиваемого вида топлива.

Программа запрашивает цены топлива тип 1, 2 и 3 поочерёдно. Затем запрашивает стоимость какого типа топлива показать и показывает её на экран.

Пример работы программы:

Программу сохранить с именем файла по фамилии. Например: Ivanov.pas

Программу сохранить в папку контрольные – 11 класс.

Задача. Pascal. Массив

Написать программу для записи стоимость 3-х видов топлива и последующего вывода стоимости запрашиваемого вида топлива.

Программа запрашивает цены топлива тип 1, 2 и 3 поочерёдно. Затем запрашивает стоимость какого типа топлива показать и показывает её на экран.

Пример работы программы:

Программу сохранить с именем файла по фамилии. Например: Ivanov.pas

Программу сохранить в папку контрольные – 11 класс.

Пример решения

var

  a: integer;

  benz: array [1..3] of integer;

begin

  for a := 1 to 3 do

  begin

    writeln('Введите стоимость бензина тип ', a);

    readln(benz[a]);

  end;

  writeln('На каком бензине вы поедите? 1,2 или 3');

  readln(a);

  writeln('Стоимость топлива ', a, ' - ', benz[a], ' рублей');

end.