Задать вопрос Регистрация
Помочь другим

  • Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. Разработать для программы не менее двух тестов и доказать правильность её работы.

Ответы 1

  • program ms3o1; {пишу по памяти-не судите строго за ошибки}

    var n,i,j,p,o,n:integer;

    begin

    n:=0; {тут у нас будут ноли}

    o:=0;{тут отрицательные}

    p:=o;{и тут соответственно положительные}

    writeln('Введите кол-во целых чисел для проверки');readln(n);

    for i:=1 to n do

    begin

    writeln('Введите число: ');readln(j);

    if j=0 then n:=n+1;

    if j>0 then p:=p+1;

    if j<0 then o:=o+1;

    end;

    writeln('Отрицательных: ',o);

    writeln('Положительных: ',p);

    writeln('Равны ноль: ',n);

    readln;

    end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years