• Дан целочисленный двумерный массив,равномерности m x n ,найти сумму всех элементов массива

Ответы 1

  • varmas : array [1..100,1..100] of integer; n,m,i,j,summa:integer;begin  write('Введите количество строк n='); readln(n);  write('Введите количество столбцов m='); readln(m);  for i:=1 to n do    for j:=1 to m do    mas[i,j]:=random(99);      writeln('Исходная матрица');  for i:=1 to n do   begin    for j:=1 to m do      write(mas[i,j]:2,' ');    writeln;   end;    summa:=0;  for i:=1 to n do    for j:=1 to m do    summa:=summa+mas[i,j];      write('Сумма=', summa);end.
    • Автор:

      speedy3
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years