В числовой последовательности из N произвольных вещественных чисел определить количество отрицательных элементов
Это Паскаль, нужна программа)
Ответы на вопрос
Ответил Ukoz1940
0
Если не то, что нужно напиши мне!
var a,b,n,c:integer;
Begin
readln(n);
a:=0;
for c:=1 to n do
begin
readln(n);
If n<0 then
n:=1 else n:=0;
a:=a+n;
end;
writeln(a);
end.
var a,b,n,c:integer;
Begin
readln(n);
a:=0;
for c:=1 to n do
begin
readln(n);
If n<0 then
n:=1 else n:=0;
a:=a+n;
end;
writeln(a);
end.
Ответил sanino1023
0
я и сам не знаю, так или нет, но вроде, спасибо)
Новые вопросы