Дан массив из 20 элементов, заполненный числами от 0 до 100. Вывести массив на экран. Найти сумму элементов кратных 3.

Const

N = 20;

Var

A:array[1 ... N] of integer;

i, S:integer;

Begin

Randomize;

Write ('Исходный массив:') ;

S:=0;

For i: = 1 to N do

Begin

A[i]:=random (101) ;

Write (' ', A[i]) ;

if A[i] mod 3 = 0 then S:=S+A[i];

End;

WriteLn;

WriteLn ('S = ', S) ;

ReadLn

End.