Question

Напишите программу на Паскале, заполнив массив с помощью генератора случайных чисел в диапазоне [-50; 50].

Дан целочисленный двумерный массив, размерности n x m. Найти сумму и произведение элементов, кратных 4 и 7. ​

Answer 1

Ответ:

const

 n=5;

 m=6;

var

 a : array [0..n, 0..m] of integer;

 sum, pr, i, j : integer;

begin

 randomize;

 sum:=0;

 pr:=1;

 for j:=0 to m-1 do begin

   for i:=0 to n-1 do begin

     a[i,j] := random(100) - 50;

     if (a[i,j] mod 4 = 0) and (a[i,j] mod 7 = 0) then begin

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

       pr:=pr*a[i,j];

     end;

     write(a[i, j], '  ');

   end;

   writeln();

 end;

 writeln('--------------------');

 writeln('Сумма = ',sum);

 writeln('Произведение = ', pr);

end.