Question

Заполнить массив из 10 элементов случайными числами в интервале [10, 200] и найти сумму элементов массива, у которых вторая с конца цифра-четная.

Answer 1

Var
a:array [1..10] of integer;
i,k,s:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 10 do
begin
a[i]:=random(191)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 10 do
begin
if (a[i]<100)and(((a[i] div 10)mod 2)=0) then s:=s+a[i] else
if (((a[i] div 10)mod 10) mod 2) = 0 then s:=s+a[i];
end;
writeln('Сумма элементов у которых вторая с конца цифра четная:',s);
end.