Объяснение:
7)
program Zadacha7;
var x, max: integer;
begin
readln (x);
max:=x;
while (x <> 0) do begin
readln (x);
if (max<x)
then max := x;
end;
writeln (max);
end.
8)
program Zadacha8;
var x, min: integer;
begin
readln (x);
min:=x;
while (x <> 0) do begin
readln (x);
if (min>x)
then min := x;
end;
writeln (min);
end.
9)
Сейчас напишу и дополню
