program Belozor4 var array of integer min max integer begin writeln Вв

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
program Belozor4;
var a:array [1..5] of integer;
i, min, max: integer;
begin
writeln ('Введите 5 элементов массива');
for i:=1 to 5 do begin
read (a[i]);
end;
max:=0;
for i:=2 to 5 do
if max<a[i] then begin
max:=a[i];
end;
writeln ('максимальный элемент в массиве = ',max);
readln ();
readln ();
end.