wapmister
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 (max<a[i]) then max:=a[i]; //если элемент массива больше, чем значение в переменной MAX, записываем в MAX значение этого элемента. end;
writeln('Максимальный элемент = ', max);
End.
Я не разбираюсь в QB, но принцип везде один и тот же: 1. Сначала нужно предположить, что максимальный элемент массива - первый(max = a[1]). 2. Начинаем перебирать весь массив через цикл 3. Если элемент массива больше, чем значение в переменной MAX, записываем в MAX значение этого элемента.
Answers & Comments
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 (max<a[i]) then max:=a[i]; //если элемент массива больше, чем значение в переменной MAX, записываем в MAX значение этого элемента.
end;
writeln('Максимальный элемент = ', max);
End.
Я не разбираюсь в QB, но принцип везде один и тот же:
1. Сначала нужно предположить, что максимальный элемент массива - первый(max = a[1]).
2. Начинаем перебирать весь массив через цикл
3. Если элемент массива больше, чем значение в переменной MAX, записываем в MAX значение этого элемента.