Предмет: Информатика,
автор: Аноним
ПОМОГИТЕ В PASCAL ПОЖАЛУЙСТА ток Г ,Д
Приложения:

Ответы
Автор ответа:
0
var i, n, s, positive, negative: integer;
begin
readln(n);
for i := 1 to n do begin
readln(s);
if s < 0 then
negative := negative + 1;
else
positive := positive+1;
end;
writeln(positive);
writeln(negative);
end.
begin
readln(n);
for i := 1 to n do begin
readln(s);
if s < 0 then
negative := negative + 1;
else
positive := positive+1;
end;
writeln(positive);
writeln(negative);
end.
Автор ответа:
0
Спасибо, а можно еще вторую
Автор ответа:
0
тут не получается
Автор ответа:
0
задача
Похожие вопросы
Предмет: Геометрия,
автор: imakienkova
Предмет: Математика,
автор: masha24022010
Предмет: История,
автор: astanislavivna7
Предмет: Литература,
автор: maykl19992014