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

Формулировка задачи:

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

Код к задаче: «Сформировать вектор, каждый элемент которого равен сумме элементов соответствующей строки двумерного массива - Pascal ABC»

textual
{ Сформировать одномерный массив, каждый элемент которого равен сумме элементов 
соответствующей строки двумерного массива, меньших данного числа. }
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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

8   голосов, оценка 3.750 из 5


СДЕЛАЙТЕ РЕПОСТ