Question

Найти сумму элементов массива кратных 4

Answer 1

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  a.Where(t->t mod 4=0).Sum.Println
end.

Пример
n= 15
16 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 19
36

Answer 2

Program n1;
const n=10;
var a: array[1..n] of integer;
i,sum: integer;
begin
sum:=0;
write('массив: ');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i] mod 4=0 then sum:=sum+a[i];
end;
writeln;
write('сумма кратных 4: ',sum);
end.