Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.