var
a,i,n,a1:integer;
begin
a1:=30000;
read(n);
for i:=1 to n do begin
read(a);
if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;
end;
writeln(a1);
end.
var
b,x,c:real;
i,n,a:integer;
begin
x:=0;
b:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;
if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;
end;
c:=b/x;
writeln(c);
end.
var
a,b,x,i,n:integer;
begin
x:=0;
read(n);
for i:=1 to n do begin
read(a);
if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;
end;
writeln(x);
end.
program raf105;
var a,max:integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
a:=1;
while a<>0 do
begin
readln(a);
if a>max
then max:= a;
end;
writeln('Максимальное число: ',max);
end.
Результаты работы программыВывод:
Вводите числа по очереди
чтобы закончить введите 0
Ввод:
12
1
100
99
105
104
2
3
0
Вывод:
Максимальное число: 105