Question

Паскаль!!! Заполнить двумерный массив N x N случайными числами из интервала [-10 ; 10] и найти сумму положительных элементов в каждой строке.

Answer 1

Var A:Array[1..nmax,1..nmax] of integer; n,m,i,j,sumN,sumV:integer;B:Array[1..nmax] of integer;beginwrite('Введите число n');readln(n);for i:=1 to n do beginfor j:=1 to n do beginm:= random(20)-10;A[i,j]:= m;write(A[i,j]:4);end;writeln;end;
writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif A[i,j]> 0 then beginwrite(A[i,j]:4); B[i]:= B[i] + A[i,j];end;end;writeln;end;writeln;writeln;for i:=1 to n dowriteln(B[i]:4);end.

Answer 2

Конечно! Вот пример программы на Pascal, которая выполняет указанные вами задачи:

pascalCopy code
program SumOfPositiveElements;

const
  N = 5; // Задайте нужный размер массива

var
  arr: array[1..N, 1..N] of integer;
  i, j, sum: integer;

begin
  // Инициализация генератора случайных чисел
  randomize;

  // Заполняем массив случайными числами из интервала [-10, 10]
  for i := 1 to N do
    for j := 1 to N do
      arr[i, j] := random(21) - 10;

  // Выводим массив на экран
  writeln('Исходный массив:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(arr[i, j]:4);
    writeln;
  end;

  // Находим сумму положительных элементов в каждой строке
  writeln('Суммы положительных элементов в каждой строке:');
  for i := 1 to N do
  begin
    sum := 0;
    for j := 1 to N do
    begin
      if arr[i, j] > 0 then
        sum := sum + arr[i, j];
    end;
    writeln('Строка ', i, ': ', sum);
  end;
end.

В этой программе мы создаем двумерный массив arr размером N x N и заполняем его случайными числами из интервала [-10, 10]. Затем мы находим сумму положительных элементов в каждой строке и выводим результаты.

Помните, что N в этой программе задано как константа и равно 5. Вы можете изменить значение N на нужное вам значение.