вопрос по паскалю/дэлфи

[cb93ka]

Помогите плз с программой . Написать на паскале или дэлфи- вводится в строку числа через пробел (значения от -50 до 50) по нажатию ентера пишет кол-во положительных цифр (>0). Все

[kair]

program maxchislo;
uses crt;
label D3;
var
i, chislo, max : integer;
begin
D3:writeln('введите число');
readln(max);
for i:=2 to 10 do begin
readln(chislo);
if chislo>max then max:=chislo
end;
writeln('max=', max);
goto D3;
end.
вот это дерьмо вставь в компилятор

[nerezus]

вводится строка. Ищутся все цифры в диапазоне от '0' до '9'(Обычный цикл и условие в нем). Считается их количество.

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

[kair]

во-во!
только такой код будет в 100 раз >

[r0]

в 500 =))
ну, как бы твой вопрос некорректен, как отметил nerezus
просто делаешь циклом repeat .. until KeyPressed
потом выводишь 101 =)