как заставить паскаль работать в диапазоне от -1000 до 1000 var Numbers: array [1..100] of longint;
i, n, max_value: integer;
BEGIN
readln(n);
for i := 1 to n do
read(Numbers[i]);
max_value := 0;
for i := 1 to n do
if Numbers[i] > max_value then
max_value := Numbers[i];
writeln(max_value);
END.

belkairi    3   02.05.2021 12:47    0