Const N = 10; var i, sum: integer; M: array[1..10] of integer; begin sum := 0; for i := 1 to N do begin M[ i ] := random(11); write( M[i], ' '); if ( M[ i ] mod 2 <> 0 ) then sum := sum + M[ i ]; end; writeln(); writeln('Сумма всех нечетных элементов: ', sum); end.
var i, sum: integer;
M: array[1..10] of integer;
begin
sum := 0;
for i := 1 to N do begin
M[ i ] := random(11);
write( M[i], ' ');
if ( M[ i ] mod 2 <> 0 ) then sum := sum + M[ i ];
end;
writeln();
writeln('Сумма всех нечетных элементов: ', sum);
end.