Question

В массиве С(5*3) целых чисел из диапазона [-5;10] вывести сумму отрицательных элементов третьего столбца. (на PascalABC)

Answer 1

Ответ:

Об1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

var

 x: array[1..100, 1..100] of integer;

 n, m, i, j: integer;

 summ: integer;

begin

 summ := 0;

 n := 4;

 m := 3;

 Randomize;

 for i := 1 to n do

 begin

   for j := 1 to m do

   begin

     x[i, j] := -5 + random(16);

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

   end;

   writeln();

 end;

 for i := 1 to n do

   for j := 1 to m do

   begin

     if (i = 3) and (x[i, j] < 0) then

       summ := summ + x[i, j];

   end;

 Writeln('Sum: ' + summ);

end.

ъяснение:

Answer 2

Для выполнения этой задачи на PascalABC, вы можете использовать следующий код:

pascalCopy code
program SumOfNegativeElements;

const
  Rows = 5;
  Cols = 3;

var
  C: array[1..Rows, 1..Cols] of integer;
  i, j, sum: integer;

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

  // Вывод массива C
  writeln('Массив C:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
      write(C[i, j]:4);
    writeln;
  end;

  // Вычисление суммы отрицательных элементов третьего столбца
  sum := 0;
  for i := 1 to Rows do
    if C[i, 3] < 0 then
      sum := sum + C[i, 3];

  writeln('Сумма отрицательных элементов третьего столбца: ', sum);
end.

Этот код создает массив C размером 5x3 и заполняет его случайными целыми числами из диапазона [-5; 10]. Затем он выводит массив C и вычисляет сумму отрицательных элементов третьего столбца, выводя результат на экран.