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

+ 0 -

Гусь357

15 июля 2015 г., 8:21:44 (8 лет назад)

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

+ 0 -

Hanteriko

15 июля 2015 г., 9:03:00 (8 лет назад)

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

+ 0 -

TanjaTosno1973

15 июля 2015 г., 11:58:27 (8 лет назад)

у нас в школе все через qb

+ 0 -

100pozitivchik

15 июля 2015 г., 14:47:59 (8 лет назад)

все через qb?)) все через ж...у?)

+ 0 -

РЭмиС

15 июля 2015 г., 17:07:53 (8 лет назад)

ага ахахаха

+ 0 -

Mashylа

15 июля 2015 г., 17:49:53 (8 лет назад)

понятно) ну я чем смог - помог. с qb ни разу не сталкивался

+ 0 -

Leks714

15 июля 2015 г., 20:27:28 (8 лет назад)

спасибо большое:)))