Консультация № 138530
29.05.2008, 17:33
0.00 руб.
0 1 1
Премногоуважаемые эксперты, помогите составить программу, формирующую массив целых чисел, найти максимальный элемент массива. Заранее спасибо.

Обсуждение

давно
Профессор
401888
1232
30.05.2008, 10:35
общий
это ответ
Здравствуйте, Верещагин Михаил!
Решение с пояснениями в приложении.

Приложение:
uses crt;const n=20;var a:array[1..n]of integer; i,max:integer;beginclrscr;randomize;writeln(‘Massiv:‘);max:=-maxint; {минимальное число этого типа}for i:=1 to n do begin a[i]:=random(20); {присваиваем значение [0,19]} write(a[i],‘ ‘); {выводим на экран} if a[i]>max then max:=a[i]; {ищем максимальный} end;writeln;writeln(‘max=‘,max); {выводим на экран}readlnend.
Форма ответа