Составить на языке Паскаль программу, которая запрашивает с ...
Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. Разработать для программы не менее двух тестов и доказать правильность её работы.
Есть ответ
12.12.2022
457
Ответ
const N = 4;var a: array[1..4] of integer; i, c, c2, c3: integer;begin for i := 1 to n do begin readln(a[i]); if(a[i] = 0) then inc(c) else if(a[i] < 0) then inc(c2) else inc(c3); end; writeln('Нулевых эл.: ', c); writeln('Отрицательных эл.: ', c2); writeln('Положительных эл.: ', c3);end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
