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
Microsoft Excel одна из самых полезных программ которая позволяет пользователю выполнять больше 400 математических операции. Все они сгрупперованы 9 категорий. Все эти функции возможно легко отслеживать в ячейках и редактировать блогодаря строке формул.В ней отображается все что содержит каждая ячейка.
Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.
<h3>Код (Pascal)</h3>
var
a: array[1..100] of integer;
i, cnt: integer;
begin
for i := 1 to 100 do
a[i] := random(1001) + 1000;
for i := 1 to 100 do
if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;
writeln(cnt);
end.
--------------------------------------------------
Файл с решением прикреплён.