Question

Целочисленный массив из 3 строк и 3 столбцов заполнить случайными числами в диапазоне от 0 до 50. Найти:
а) сумму всех элементов массива;
б) сумму элементов массива кратных трем.

Answer 1

const

 n = 3;

var

 a: array[1..n, 1..n] of integer;

 i, j, k, sum, sum2, x: integer;

begin

 sum := 0;

 sum2 := 0;

 randomize;

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

 for i := 1 to n do

 begin

   for j := 1 to n do

   begin

     a[i, j] := 1 + random(50);

     write(a[i, j]:4);

     sum := sum + a[i, j];

     if a[i, j] mod 3 = 0 then

       sum2 := sum2 + a[i, j]

   end;

   writeln;

 end;

 Writeln('Сумма всех элементов массива: ', sum);

 Writeln('Сумма всех элементов массива кратных 3: ', sum2);  

end.