var
number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}
begin
writeln('Введите N');
readln(N);
for i:= 1 to N do
begin
writeln('Введите целое число');
readln(number);
if number < 0 then notr:= notr + 1;
if number > 0 then npol:= npol + 1;
if number = 0 then n0:= n0 + 1;
end;
writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');
end.
А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
ЭВМ первого поколения (1946-1958 ). Для этого поколения характерно использование электронных ламп, перфокарт, перфолент, реле и магнитных лент. Для компьютеров требовалось огромное пространство. Никакого ПО почти не было. На каждой машине свой язык программирования.
ЭВМ второго поколения ( 1958-1964 ). Появляются полупроводниковые транзисторы, которые заменяли электронные лампы; магнитные диски.
ЭВМ третьего поколения (1964-1972 ). Микросхемы или по другому интегральные схемы пришли на смену транзисторам. Производительность увеличивается до 10 млн. операций в секунду. Поддерживается многозадачность.
ЭВМ четвертого поколения ( 1972 - сегодня). Стали применятся большие интегрельные схемы. Появились микрокомпьютеры. Значительно уменьшилось требуемое место для размещениея компьютерной техники
