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.

ъяснение: