Ответы на вопрос:
pascalabc.net
begin
// последовательность целых чисел вводится с клавиатуры
// пока не будет введен 0 (который не войдет в нее).
// затем последовательность преобразуется в массив (toarray)
// нужного размера, который сохраняется с именем a
var a : = readseqintegerwhile(p -> p < > 0).toarray;
// заведем счетчики для количества положительных kp и
// отрицательных kn элементов и обнулим их
var (kp, kn) : = (0, 0);
// просматриваем в цикле массив. на каждом шаге p будет обозначать
// очередной элемент массива
foreach var p in a do
if p > 0 then // если элемент положительный
kp += 1 // добавим 1 в счетчик положительных
else if p < 0 then // если элемент отрицательный
kn += 1; // добавим 1 в счетчик отрицательных
// осталось вывести результаты
writeln('положительных чисел ', kp, ', отрицательных ', kn)
end.
Популярно: Информатика
-
romchik22866609.02.2022 12:59
-
rfrfirflehf25.03.2021 21:42
-
EldarHolter09.02.2022 21:01
-
novakiraa12.07.2020 10:24
-
Ьвот24.06.2022 10:13
-
лиза263022.05.2021 00:17
-
dassshaVv20.07.2020 00:52
-
vitaly1013.03.2020 18:02
-
Шаша67615.01.2020 15:44
-
nikita500001111104.05.2023 01:47