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
n,sum,n1,n2,n3:integer;
Begin
Write('Введите 3х значное число: ');
Readln(n);
n1:=n div 101;
n2:=(n div 10) mod 10;
if n2>n1 then writeln('2 число больше первого') else
writeln('1 число больше второго');
end.
Start(в овале)>1>Ввод пароля(в параллелограмме)>
>Если пароль==Твой пароль(тут ромб)>да>Конец(в овале)
>нет>(тут стрелка к единице)