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 значение этого элемента.

RANDOMIZE TIMER
DIM A(10)
FOR I = 1 TO 10
    A(I) = INT(RND * 20)
    IF A(I) > M THEN M = A(I)
    PRINT A(I); " ";
NEXT I
PRINT
PRINT "Максимальный элемент: "; M