1)Y=1
S=0
повтори 10 раз (
если элемент массива под номером Y больше Х то S=S+элемент массива под номером Y;
Y=Y+1);
Вывод на экран S
2)Y=1
S=0
повтори 10 раз (
если остаток от деления на 10 элемента массива под номером Y равен 5 то S=S+1;
Y=Y+1);
Вывод на экран S
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
мусс медовый
<span>1.Яичные желтки растереть с медом.</span>
<span>2.Добавить 50 г. меда и размешивать</span>
<span>3.если получилась густая однородная масса, то переход на 4 пункт, иначе на 2 пункт.</span>
<span>4.П<span>оставить ее на слабый огонь и, непрерывно помешивая, довести до густоты меда. 5.Затем снять с огня и охладить.</span></span>
<span><span>Цикл получается в 2,3 пункте</span></span>