Question

Програма на паскалі
Введіть з клавіатури n будь яких чисел. З'ясувати яке число було введено раніше, максимальне чи мінімальне

Answer 1

Ответ:

Всё просто.

Объяснение:

var

i, min, max, n: integer;

begin

min:=MaxInt; max:=-MaxInt-1;

Write('Введите 10 чисел: ');

for i:=1 to 10 do begin

Read(n);

if n<min then min:=n;

if n>max then max:=n;

end;

Writeln('min=',min);

Writeln('max=',max);

end.