• имеются две матрицы размером n на m заполненные случайными числами от 1 до 10, заполнить и вывести 3 матрицу, каждый элемент которой равен сумме предыдущих (Паскаль) можно пожалуйста решение полегче

Ответы 1

  • // PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк в матрице:');  var m:=ReadInteger('Количество столбцов в матрице:');  Writeln('*** Исходная матрица A [',n,',',m,'] ***');  var a:=MatrRandom(n,m,1,10);   a.Println(3); Writeln(3*a.ColCount*'-');  Writeln('*** Исходная матрица B [',n,',',m,'] ***');  var b:=MatrRandom(n,m,1,10);   b.Println(3); Writeln(3*a.ColCount*'-');  Writeln('*** Матрица-результат С [',n,',',m,'] ***');  var c:=new integer[n,m];  for var i:=0 to n-1 do    for var j:=0 to m-1 do      c[i,j]:=a[i,j]+b[i,j];  c.Println(3)end.ПримерКоличество строк в матрице: 4Количество столбцов в матрице: 7*** Исходная матрица A [4,7] *** 10  9  4  5  9  1  3  7  4  1  2  6  8 10  2  5  3  9  8  3  3  3  7  2  9  5  2 10---------------------*** Исходная матрица B [4,7] ***  8  1  1  4  2  5  3  8  1  8  8  3  1 10  1  5  6  2  6  5  5  8  6  5  9  4  1  7---------------------*** Матрица-результат С [4,7] *** 18 10  5  9 11  6  6 15  5  9 10  9  9 20  3 10  9 11 14  8  8 11 13  7 18  9  3 17
  • Добавить свой ответ

Войти через Google

или

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

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

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