Сгенерировать одномерный массив, каждый элемент которого равен сумме соответствующей строки матрицы А

@Flora · Регистрация: 13.12.2014

Студворк — интернет-сервис помощи студентам

Составить программу генерирующую одномерный массив каждый элемент которого равен сумме соответствующей строки двумерного массива А(N,N).
Пожалуйста

@Ваю · 26.04.2015, 19:27

Pascal

var
  a : Array[,] of Smallint;
  b : Array of Longint;
  m, n, i, j : Word;
 
Begin
m := Random(8, 23); n := Random(8, 11); SetLength(a, m, n); j := 0; 
WriteLn('M = ', m, ' ; N = ', n); WriteLn; 
 
Repeat i := 0; 
  Repeat a[j, i] := Random(Smallint.MinValue, Smallint.MaxValue); 
  Inc(i); Until i >= n; Inc(j); 
Until j >= m; 
 
j := 0; Repeat i := 0; 
  Repeat Write(a[j, i]:7, ' '); Inc(i); Until i >= n; 
WriteLn; Inc(j); Until j >= m; 
 
WriteLn; SetLength(b, m); j := 0;
 
Repeat i := 0; 
  Repeat b[j] += a[j, i]; Inc(i); Until i >= n; 
Inc(j); Until j >= m; i := 0; j := 0; 
 
WriteLn('Суммы строк: ');
Repeat Write(b[j]:11, ' '); If (j+1) mod 6 = 0 then WriteLn;
  Inc(j); Until j >= m;
 
SetLength(a, 0, 0); SetLength(b, 0); a := nil; b := nil;
End.

@Flora · 18.05.2015, 18:11 **[ТС]**

а можете написать в паскале ABC

@Flora 0 / 0 / 0 Регистрация: 13.12.2014 Сообщений: 43
		1
	Сгенерировать одномерный массив, каждый элемент которого равен сумме соответствующей строки матрицы А 26.04.2015, 17:29. Показов 1501. Ответов 2 Метки нет (Все метки) Составить программу генерирующую одномерный массив каждый элемент которого равен сумме соответствующей строки двумерного массива А(N,N). Пожалуйста 0

@Flora 0 / 0 / 0 Регистрация: 13.12.2014 Сообщений: 43
	18.05.2015, 18:11 [ТС]	3
	а можете написать в паскале ABC 0

Опции темы

Сгенерировать одномерный массив, каждый элемент которого равен сумме соответствующей строки матрицы А

Решение