Кестені орындап беріңіздерші.Сіздерден өтінемін. береміз.Сіздер үшін.Бізге бұр дәл қазір керек болып - id1632069620211212 от karamnovagmai 12.12.2021 10:47

Question

Информатика: Кестені орындап беріңіздерші.Сіздерден өтінемін. береміз.Сіздер үшін.Бізге бұр дәл қазір керек болып тұр​

karamnovagmai · Accepted Answer

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В более ранних версиях работа не гарантируется!

begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
var a:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do Read(a[i,j]);
Writeln('-'*20);
foreach var c in a.Cols do Write(c.Sum,' ')
end.

Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 3
Вводите элементы массива
1 6 -2
0 6 8
-3 6 1
4 6 -3

2 24 4

Кестені орындап беріңіздерші.Сіздерден өтінемін. береміз.Сіздер үшін.Бізге бұр дәл қазір керек болып тұр​

MOGZ ответил

Кестені орындап беріңіздерші.Сіздерден өтінемін. береміз.Сіздер үшін.Бізге бұр дәл қазір керек болып тұр