Задача №6
var x,y,max:integer;
begin
read(x);
max:=x;
if x=0 then exit;
repeat
read(y);
if y>max then max:=y;
until y=0;
writeln(max);
end.
Задача №7
var x,y,max, min:integer;
begin
read(x);
max:=x;
min:=x;
if x=0 then exit;
repeat
read(y);
if y>max then max:=y;
if y
until y=0;
writeln(max-min);
end.
Задача №8
var x,k,z:integer;
begin
k:=0;
z:=0;
repeat
read(x);
if (x mod 2 = 0) and (x<>0) then k:=k+1;
if (x mod 2 = 0) and (x<>0) then z:=z+1;
until x=0;
if k>z then writeln('Четных больше');
if k
if k=z then writeln('Четных и нечетных поровну');
end.
Задача №9
var x,y,max,k1,k2:integer;
begin
read(x);
max:=x;
k1:=1;
k2:=0;
if x=0 then exit;
repeat
read(y);
if y>max then k1:=k1+1;
k2:=k2+1;
until y=0;
if k1=k2 then writeln('Верно') else writeln('Неверно');
end.
Задача №10
var y,k1,k2:integer;
begin
k1:=1;
k2:=0;
repeat
read(y);
if (y>0) and (y>20) and (y<100) then k1:=k1+1; </span>
k2:=k2+1;
until y=0;
if k1=k2 then writeln('Верно') else writeln('Неверно');
end.