Дана последовательность из n вещественных чисел, начинающаяся с отрица- тельного числа. определить, какое количество отрицательных чисел записано в начале последовательности. условный оператор не использовать.
298
499
Ответы на вопрос:
const n = 5; var a,i,k : integer; begin readln (a); k : = 1; while (a < 0) and (k < n) do begin k : = k +1; readln (a); end; for i : = k to n do readln (a); a : = k; while a < n do begin k : = k -1; a : = n; end; writeln (k); end.
Популярно: Информатика
-
snady02.01.2022 11:45
-
alona201709.06.2020 23:59
-
torin3919391904.06.2021 20:57
-
ayazhka201.01.2021 05:57
-
troll2804.02.2021 02:32
-
sofiotap312.01.2021 08:16
-
askerovaa107.01.2021 02:00
-
anjelikakotiv06.06.2023 05:29
-
risik1205super27.07.2022 05:09
-
valera25306.03.2020 15:16