Question

Одномерные массивы. Дан массив из 10 элементов. Найти сумму тех, которые делятся на 3. Константы не проходили.

Answer 1

//PascalABC.NET 3.8.2

var

 arr : array[1..10] of integer;

 _sum : integer;

 begin

   for var i := 1 to 10 do

     begin

     readln(arr[i]);

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

       _sum := _sum +arr[i];

     end;

   writeln('Сумма элементов, которые делятся на 3: ', _sum);

 end.