Выберите действия создание трехмерной модели цилиндров в программе sketchUp
Ответы на вопрос:
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.
Популярно: Информатика
-
MrFear4108.11.2022 19:59
-
edinorogik506.08.2020 22:54
-
kate65304.01.2020 11:50
-
mitskevich07710.11.2021 15:27
-
www15205.04.2022 23:13
-
WWW2017WWW17.09.2020 13:42
-
basik201710.03.2021 10:27
-
morshchininao15.07.2020 15:15
-
maksimesaulav4621.04.2020 16:24
-
DENCHIK2337130.01.2022 09:33