Question

90Баллов
Помогите мне прям очень срочнооооо!!!!!
Выполнить задание в Паскале. Дан массив из 10 чисел. Найти наибольшее значение среди элементов массива и вывести его на экран. Входные данные для решения задания задать самостоятельно. На проверку нужно прислать код программы и скриншот окна программы с отображением кода и результатов работы.

Answer 1

Ответ:

pascal

Объяснение:

var

  a: array[1..10] of integer;

  i, max, imax: integer;

begin

 WriteLn('Введите значения массива:');

 for i := 1 to 10 do

 begin

   Write('a[', i, '] = '); ReadLn(a[i]);

 end;

 max := a[1];

 imax := 1;

 for i := 2 to 10 do

 begin

   if a[i] > max then

   begin

     max := a[i];

     imax := i;

   end;

 end;

 WriteLn('Максимальный элемент: a[', imax, '] = ', max);

end.