Определите размер следующего предложения в UNICODE кодировке (UTF-16): Первая ЭВМ была создана в Америке и получила название ENIAC.
Ответы на вопрос:
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.
Популярно: Информатика
-
dominikablak18.02.2021 12:40
-
Nomatdicov19.04.2022 12:24
-
Shiro130327.04.2023 17:25
-
elinanagimova25.07.2020 17:06
-
maalia1210.05.2021 16:17
-
Джина001.04.2022 05:51
-
Рыбка1Золотая27.04.2022 09:19
-
даша364414.02.2021 05:54
-
alfami200417.10.2022 20:37
-
lowrentij05.02.2020 16:00