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

Question

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

Comments

Pascal?

---

qb

---

ничего ж себе... в каком веке вы живете... с паскалем вообще не знакомы?

---

или даже не так. вообще понимаете qb?

---

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

---

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

---

ага ахахаха

---

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

---

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

Answer 1

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

Comments

это пример на Pascal

Answer 2

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

Comments

Так пойдет?