Вариант №2 (с циклом for и заполнением массива с клавиатуры)
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) const n = 50;
var a: array[1..n]of integer; i, max: integer;
begin max := -MaxInt; for i := 1 to n do begin writeln('Введите ', i, ' число ');readln(a[i]); if a[i] > max then max := a[i]; end; writeln('Максимальное ', max); end.
3 votes Thanks 1
6603673
Random зачем? Мне говорили что это надо через цикл for.
vladmor
А в условии задачи вы постеснялись об этом сказать
Answers & Comments
Verified answer
Вариант №1//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
begin
//Для теста заполним массив сл. числами
var a := arrrandom(50); a.Println;
println('Максимальное значение',a.max);
end.
Тестовое решение:
25 78 95 85 97 57 77 49 58 26 36 57 74 24 19 94 66 33 32 43 32 7 64 24 11 2 60 45 6 40 31 19 40 53 80 67 18 26 39 23 53 63 26 18 84 11 11 72 19 79
Максимальное значение 97
Вариант №2 (с циклом for и заполнением массива с клавиатуры)
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const
n = 50;
var
a: array[1..n]of integer;
i, max: integer;
begin
max := -MaxInt;
for i := 1 to n do
begin
writeln('Введите ', i, ' число ');readln(a[i]);
if a[i] > max then max := a[i];
end;
writeln('Максимальное ', max);
end.