Найти max элемент массива A(10)

Program n1;
Uses Crt;
Var
a: array[1..10] of integer;
i:integer;
max:integer;
Begin

for i:=1 to 10 do a[i]:=random(40)-20; //заполняем массив случайными числами

max:=a[1];  //сначала нужно предположить, что максимальный элемент массива - первый

//начинаем перебирать весь массив через цикл
for i:=1 to 10 do begin
  if (maxend;

writeln(Максимальный элемент = , max);

End.


Я не разбираюсь в QB, но принцип везде один и тот же:
1. Сначала нужно предположить, что максимальный элемент массива - первый(max = a[1]).
2. Начинаем перебирать весь массив через цикл
3. Если элемент массива больше, чем значение в переменной MAX, записываем в MAX значение этого элемента.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.