Question

Помогите! Дан массив от 1 до 10. найти сумму четных элементов массива.
ПАСКАЛЬ 9 КЛАСС

Answer 1

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i, n: integer;

begin

 for i := 1 to 10 do begin

   arr[i] := random(-100, 100);

   if arr[i] mod 2 = 0 then n := n + arr[i];

 end;

 writeln('Массив: ', arr);

 writeln('Сумма чётных элементов массива: ', n);

end.