Ответ:
3, 6, 9 сложить я думаю сможешь сам.
"Обозначим за N%M операцию, возвращающую остаток от целочисленного деления N на M.", - это к чему, я не понял?
Объяснение:
Ответ:
Программа запускалась в PascalABC.NET
Объяснение:
Const
n=10;
var
a:array[1..n]of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random(10);
write(a[i],'; ');
end;
writeln;
write('Искомые номера: ');
for i:=n downto 2 do
if a[i]>a[i-1] then
begin
k:=k+1;
write(i,'; ');
end;
writeln;
writeln('Количество элементов: ',k);
<span>end. </span>