Question

СРОЧНО! ПАСКАЛЬ!
Вычислить сумму всех элементов матрицы размером 3*3

Answer 1

Ответ:

program z;

var a:array [1..3,1..3] of integer;

i,j,s:integer;

begin

s:=0;

writeln ('Матрица:');

for i:= 1 to 3 do

begin

for j:=1 to 3 do

begin

a[i,j]:=random(10);

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

s:=s+a[i,j]

end;

writeln;

end;

writeln('Сумма всех элементов матрицы : ',s)

end.

Объяснение:

используем вложенные циклы с параметром:

внешний - for i:= 1 to 3 do (строки)

внутренний - for j:=1 to 3 do (столбцы)

a[i,j]:=random(10); - присваивание элементам матрицы случайного значения из промежутка [0; 9]

write(a[i,j]:3); - вывод значения элемента матрицы на экран

s:=s+a[i,j] - подсчёт суммы элементов матрицы