Question

Составить алгоритм поиска суммы всех элементов массива целых чисел, кратные 3. Размерность массива - 20. Заполнение массива осуществляется случайными числами от 200 до 300.
(пример как делать прикрепил)

Answer 1

const

n=20;

type

mas = array [1..n] of integer;

procedure search(massive : mas);

var j,s : integer;

begin

 s:=0;

 for j:=1 to n do

   if massive[j] mod 3 = 0 then

      s := s + massive[j];

  writeln;

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

end;

var

i, k : integer;

a : mas;

begin

 write('массив:');

 for i:=1 to n do

   begin

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

     write(a[i]:4)

   end;

 search(a);

end.