Question

Pascal Дан массив А размерности 4x5,элементы которого случайные числа из [-10;45].Найти сумму положительных элементов массива

Answer 1

Ответ:

var A: array [1..5,1..4] of integer;

var i,j,sum: integer;

begin

sum:=0;

randomize();

For i:= 1 to 5 do

begin

 For j:= 1 to 4 do

 begin

 A[i,j]:=random(56)-10;

 if (A[i,j]>0) then sum:=sum+A[i,j];

 write(A[i,j]:4);

 end;

 writeln();

end;

writeln('Сумма положительных элементов массива: ',sum);

end.

Answer 2

Для нахождения суммы положительных элементов в данном массиве, вам необходимо пройти по каждому элементу массива и сложить только те элементы, которые больше нуля. Вот как это можно сделать на примере языка программирования Pascal:

pascalCopy code
program SumPositiveElements;

const
  Rows = 4;
  Cols = 5;

var
  A: array[1..Rows, 1..Cols] of Integer;
  i, j, sum: Integer;

begin
  Randomize;

  // Заполнение массива случайными числами
  for i := 1 to Rows do
    for j := 1 to Cols do
      A[i, j] := Random(56) - 10; // случайное число из [-10;45]

  // Нахождение суммы положительных элементов
  sum := 0;
  for i := 1 to Rows do
    for j := 1 to Cols do
      if A[i, j] > 0 then
        sum := sum + A[i, j];

  // Вывод результатов
  writeln('Массив:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      write(A[i, j]:4);
    writeln;
  end;

  writeln('Сумма положительных элементов: ', sum);
end.

Обратите внимание, что в этом примере мы используем вложенные циклы для обхода всех элементов массива и проверку на положительность, чтобы добавить соответствующие элементы к общей сумме. После обработки всех элементов массива, программа выведет на экран исходный массив и сумму положительных элементов.