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.
Здравствуйте!
Объяснение:
While это цикл, он дублируется тогда, когда в его теле(в цикле)
Есть выражение.
У тебя переменные присвоены ввражению, если подствить, то получим 1＋2＜8
a＋＝1 это тоже самое, что a＋1
Получается 3＜8 значит будет убываение
По 7 раз в каждом будет дублироватся по 2 выражение
Потому что где 3 находится там меньшее всега значение, а если бы знак в другую сторону был повернут＞ это в большую тогда, т.е если 8-1＝7 при знаке ＜, то при ＞ на оборот 8+1＝9, что касается ответов они разнве a＋1 и a＋b
