Question

Найдите произведение и среднее арифметическое элементов двумерного массива а[n,m] заданного случайным образом из интервала (-70, 170). если можно развернутый ответ

Паскаль ​

Answer 1

Программа:

Pacsal:

const n = 10; m = 3;

var

 arr: array[1..n, 1..m] of integer;

 i, j, summ, count, proiz: integer;

begin

 proiz := 1;

 count := 0;

 summ := 0;

 randomize;

 for i := 1 to n do

   for j := 1 to m do begin

     arr[i, j] := random(-70, 170);

     proiz *= arr[i, j];

     summ += arr[i, j];

     inc(count);

   end;

 writeln('Массив: ', arr);

 writeln('Произведение элементов: ', proiz);

 writeln('Среднее арифметическое элементов: ', summ/count);

end.

Объяснение:

В начале объявляются константы n, m - длина массива. Далее регистрируется сам массив и 5 необходимых для будущего кода переменных. Говорим паскалю, что используем процедуру randomize. С помощью цикла пробегаемся по всем цифрам от 1 до n, вторым циклом - от 1 до m; где n - количество строк, m - рядов. Элементу массива [i, j] присваивается рандомное значение в интервале от -80 до 180. Этот же элемент прибавляется к значению переменной summ, значение переменной proiz умножается на этот элемент, значение переменной count увеличивается на единицу. В конце выводится сам двухмерный массив, произведение элементов и среднее арифметическое элементов.