Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>
алг и кц - определение самого алгоритма
объявляются целочисленные переменные a, b,t
пользователем вводится переменная a
a присваивается переменной t
0 присваивается переменной b
начало цикла с условием, что t не должен равняться 0
остаток от деления числа t на 10 присваивается переменной b
деление с остатком числа t на 10 присваивается переменной t
Восопользуся Algo на паскале или Delghi 6.0