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

@Evgenij3 · Регистрация: 13.09.2016

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

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

@ZX Spectrum-128 · 15.09.2016, 18:33

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, x: real;
 
begin
  Writeln('Введите число: ');
  readln(x);
  Randomize;  
  Writeln('Исходный массив: ');
  for i := 1 to m do
  begin
    sum := 0;
    for j := 1 to n do
    begin
      a[i, j] := -n div 2 + random * 50;
      Write(a[i, j]:8:2);
      if a[i, j] < x then 
        sum := sum + a[i, j];
    end;
    b[i] := sum;
    writeln;
  end;
  Writeln('Одномерный массив: ');  
  for i := 1 to m do
    write(b[i]:8:2);
end.

@Evgenij3 0 / 0 / 0 Регистрация: 13.09.2016 Сообщений: 7
		1
	Сформировать вектор, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива 15.09.2016, 17:27. Показов 1886. Ответов 1 Метки нет (Все метки) Сформировать одномерный массив, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива, меньших данного числа. 0

	15.09.2016, 18:33

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

Решение