Ответ(ы) на вопрос:
Гость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
Гость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
Не нашли ответ?
Похожие вопросы