Регистрация
nikakrasovska
17.04.2020 18:04
Информатика
Есть ответ 👍

Срлчно надо! Информатика​

255
278
Посмотреть ответы 1

Ответы на вопрос:

АнастасияCat144
АнастасияCat144
4,5(62 оценок)

var i,max:integer; a:Array[1..10] of integer = (5,4,9,8,4,8,2,3,8,7);

begin

   max := a[1];

   for i:=2 to 10 do begin

       if max < a[i] then max := a[i];

   end;

   write('Максимальный элемент массива равен ', max);

end.

Популярно: Информатика