Дан массив : - 5 3 - 2 6 1

Найти сумму положительных элементов массива (Pascal Abc)

Question

Информатика

Агафа

17 апреля, 06:51

Дан массив : - 5 3 - 2 6 1

Найти сумму положительных элементов массива (Pascal Abc)

+1

Ответы (1)

Знаете ответ на вопрос?

Воислава · Answer 1

Program p1;

var i:integer;

a:array[1 ... 5] of integer;

begin

a[1]:=-5;

a[2]:=3;

a[3]:=-2;

a[4]:=6;

a[5]:=1;

for i:=1 to 5 do

begin

if (a[i]<0) then write (a[i], ' ') ;

end;

end.

P. S. странное задание

Дан массив : - 5 3 - 2 6 1Найти сумму положительных элементов массива (Pascal Abc)

Дан массив : - 5 3 - 2 6 1

Найти сумму положительных элементов массива (Pascal Abc)