Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и...

Question

Написать программу, запрашивающую с клавиатуры целые числа и определяю-щую максимальное и минимальное из них. Окончание ввода – число 0. Протестиро-вать программу для последовательности: -3 5 6 -11 24 -1 0.

ПАСКАЛЬ

Answer 1

uses crt;
var x,min,max:integer;
begin
clrscr; min:=0;max:=0;
Writeln('Write x = ');
readln(x);
min:=x;
max:=x;
while x<>0 do
begin
readln(x);
if ((min > x) and (x<>0)) then min:=x;
if ((max < x) and (x<>0)) then max:=x;
end;
writeln('max = ',max);
writeln('min = ',min);
readln
end.