СРОЧНО!!30 баллов
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них

1

Ответы и объяснения

2013-11-27T12:58:06+00:00
Var m:array[1..30] of longint;
schet,i:longint;
begin
for i:=1 to 30 do
begin
read(m[i]);
if m[i]<0 then 
inc(schet);
end;
writeln(schet);
end.
пробую в паскаль,longint оже не проходили.но все равно спасибо!
Longint можешь поменять на integer, longint тоже самое только в него можно записывать большие числа.
а разве не надо writeln('n')?
ничего не получается(((((((
что? у меня все работает