//Pascal const N = 5; var a: array [1..N] of integer; s: integer; begin s := 0; for var i := 1 to N do begin a[i] := Random(100); if (a[i] mod 2 = 0) then s := s + a[i]; write(a[i]:5); end; writeln; writeln('Сумма четных: ', s); end.
Камера не очень, так что спрашивай, если непонятно что-то. ____________________________________________________ В первом номере деление на триады для восьмеричной - сверху, а для шестнадцатеричной - снизу (см. дуги около числа в двоичной записи). Во втором номере слева исходный пример, а справа в десятичной записи(подразумевалось, что числа сам можешь перевести из (2) в (10) ). Потом ниже проверка. В третьем а) можно было умножать на 16, а можно через двоичную. Я сделала через двоичную. В четвертом, как и в первом, деление на восьмеричные триады - сверху, на шестнадцатеричные - снизу.
const
N = 5;
var
a: array [1..N] of integer;
s: integer;
begin
s := 0;
for var i := 1 to N do
begin
a[i] := Random(100);
if (a[i] mod 2 = 0) then s := s + a[i];
write(a[i]:5);
end;
writeln;
writeln('Сумма четных: ', s);
end.