3. В массиве хранится информация о стоимости автомобилей. Определите стоимость самого дорогого автомобиля и его номер в массиве. Если есть несколько таких автомобилей, то выведите все номера.

Объявим массив констант c размером в 10 элементов, который будет хранить информацию о стоимости автомобилей. Затем в цикле найдём максимальный элемент массива — это и будет стоимость самого дорогого автомобиля. В последнем цикле найдём все номера элементов, которые равны максимальной стоимости и выведем их на экран.

const c: array [1..10] of integer = (3000, 4000, 12000,
8000, 5500, 12000, 4500, 11500, 12000, 7400);
var k, n_max: integer;
begin
 n_max := 1;
 for var i := 2 to 10 do
  if c[i] > c[n_max] then
   n_max := i;
 writeln('Стоимость самого дорого авто - ', c[n_max]);
 writeln('Под номерами:');
 for var i := 1 to 10 do
  if c[i] = c[n_max] then
   write(i, ' ');
end.
Другие задания