• Решите пожалуйста! (Просто и понятно, без заумностей)
    Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных, и сколько нулей. Разработать для программы не менее двух тестов (ОБЯЗАТЕЛЬНО НАПИСАТЬ) и доказать правильность ее работы.

Ответы 1

  • var n, a, pos, neg, null, i: integer;  begin   pos := 0;   neg := 0;   null := 0;   writeln('Введите N:');   readln(n);   writeln('Введите N целых чисел:');   for i := 1 to n do    begin     read(a);     if(a < 0) then neg := neg + 1;     if(a > 0) then pos := pos + 1;     if(a = 0) then null := null + 1;   end;   writeln('Положительных чисел: ', pos);   writeln('Отрицательных чисел: ', neg);   writeln('Нулей: ', null); end.Тестовые решения:1)ввод81 2 0 3 0 -5 -4 2выводПоложительных чисел: 4Отрицательных чисел: 2Нулей: 22)ввод60 0 3 -5 0 22выводПоложительных чисел: 2Отрицательных чисел: 1Нулей: 3
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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