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.