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

@_Dracula · Регистрация: 09.06.2011

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

Есть свободная минутка? попробуйте составить программку:
Сформируйте одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки исходной матрицы. Процедурой, массив Двумерный

Премного благодарен.

@ZX Spectrum-128 · 04.04.2019, 08:59

Pascal

const
  m = 4;
  n = 6;
 
var
  a: array [1..m, 1..n] of real;
  b: array [1..n] of real;
  
  
  i, j: integer;
  sum: real;
 
begin
  Randomize;  
  Writeln('Исходный массив: ');
  for i := 1 to m do
  begin
    sum := 0;
    for j := 1 to n do
    begin
      a[i, j] := -100 + random(201);
      Write(a[i, j]:8:2);
      sum := sum + a[i, j];
    end;
    b[i] := sum;
    writeln;
  end;
  Writeln('Одномерный массив: ');  
  for i := 1 to m do
    write(b[i]:8:2);
end.

@_Dracula 0 / 0 / 0 Регистрация: 09.06.2011 Сообщений: 11
		1
	Сформируйте одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки исходной матрицы. 10.06.2011, 01:13. Показов 1456. Ответов 1 Метки нет (Все метки) Есть свободная минутка? попробуйте составить программку: Сформируйте одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки исходной матрицы. Процедурой, массив Двумерный Премного благодарен. 0

Опции темы