Водится число N, а затем N целых чисел.Необходимо вывести число Нулей, затем Число положительных и отрицательных чисел. Паскаль
8 класс (базовый уровень)
151
227
Ответы на вопрос:
var
i, chislo, count, c1, c2, c3: integer;
begin
write('Введите колличество чисел: ');
read(count);
writeln('Введите числа: ');
for i := 1 to count do
begin
readln(chislo);
if chislo = 0 then
c1 := c1 + 1;
if chislo > 0 then
c2 := c2 + 1;
if chislo < 0 then
c3 := c3 + 1;
end;
writeln('=0 ', c1);
writeln('>0 ', c2);
writeln('<0 ', c3);
end.
PascalABC.NET
begin
var zeroes, positives, negatives: integer;
var sqnc := ReadSeqInteger('Вводи: ', ReadInteger('n = '));
foreach var number in sqnc do begin
if number > 0 then inc(positives);
if number = 0 then inc(zeroes);
if number < 0 then inc(negatives);
end;
Println(zeroes, positives, negatives);
end.
Объяснение:
Популярно: Информатика
-
Gurusergo29.06.2023 02:28
-
КрендельЙА15.12.2021 13:43
-
Asimaaa29.07.2022 00:32
-
uhbujhxbr10.10.2022 13:41
-
Mawamawa0025.02.2021 14:43
-
НикаиВикаСестры08.09.2022 10:58
-
Yerkosyaorynbekova10.03.2020 12:35
-
glebyha2204.10.2021 02:59
-
Kovik1234531.01.2021 05:43
-
alkozlovtzeva25.01.2021 23:04