1. Найти сумму четных элементов массива целых чисел. Размерность - 20. От 100 до 200.

Question

Информатика

Фетиния

13 декабря, 08:44

1. Найти сумму четных элементов массива целых чисел. Размерность - 20. От 100 до 200.

+3

Ответы (1)

Знаете ответ на вопрос?

Аза · Answer 1

uses crt;

var s, i:integer;

a:array[1 ... 20] of integer;

begin

s:=0;

for i:=1 to 20 do

begin

a[i]:=random (100) + 100;

if a[i] mod 2 = 0 then

s:=s+a[i];

end;

writeln (s) ;

readln;

end.