Составить на языке паскаль программу, которая запрашивает с клавиатуры n целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. разработать для программы не менее двух тестов и доказать правильность её работы.
Ответы на вопрос:
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.
а для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.
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.
Популярно: Информатика
-
19Otlichnik1914.01.2023 00:48
-
ruslan42803.04.2023 09:49
-
utseetstse13.06.2020 13:54
-
Railyna14.01.2022 05:49
-
Альбина211217.04.2022 11:45
-
Дейлионна18.06.2022 23:59
-
НикитаДикий13.11.2022 16:00
-
raxievali24.10.2022 04:52
-
пок1524.07.2021 06:39
-
kopilovaolga01.03.2023 01:06