Question

Дан массив вещественных чисел, в котором необходимо вывести на экран номера отрицательных элементов и найти сумму положительных.

Answer 1

program tref;
var i,sum:integer; mas:array[1..10]of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(20)-5 ;
write(mas[i]:3);
end;
writeln;
for i:=1 to 10 do
begin
if(mas[i]>=0)then sum:=sum+mas[i] else write(i:3);
end;
writeln;
writeln('sum= ',sum);
readln;
end.

Answer 2

Большое спасибо

Answer 3

пожалуйста