Question

найти сумму чисел кратных трем pascal abc​

Answer 1

const

 x = 5;

var

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

 i, sum: integer;

begin

 writeln('Все числа:');

 for i := 1 to x do

 begin

   a[i] := random(-99, 99);

   write(a[i], ' ');

   if (a[i] mod 3 = 0) then

     sum += a[i];

 end;

 writeln('Сумма чисел, кратных трём: ', sum);

end.