Question

СРОЧНО..
СОСТАВИТЬ ПРОГРАММУ
Определить количество и сумму отрицательных из 10 веденых случайным образом чисел
​

Answer 1

Ответ:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

program Project1;

const n=10;

var i,sum:integer;

A:array [1..n] of integer;

begin

 for i:=1 to n do begin

  write('введите A[',i,']'); readln (A[i]);

 end;

  writeln;

  sum:=0;

 for i:=1 to n do

  if A[i]<0 then begin

    writeln ('A[',i,']'); sum:=sum+A[i];

  end;

 writeln ('Сумма отрицательных элементов =',sum);

end.

Объяснение: