Нати номера тех элементов массива , значение которых больше заданного числа c
227
277
Ответы на вопрос:
Var c,n,k,i: integer; a: array[1..1000] of integer; begin write('write size array: '); readln(n); write('write c: '); readln(c); k: =0; for i: =1 to n do begin read(a[i]); if a[i]> c then inc(k); end; writeln(k); readln; readln end.
Популярно: Информатика
-
Gesha1128.05.2022 03:06
-
ваняшка12.11.2021 21:24
-
elinochka070711.03.2023 10:12
-
K1rysha12.08.2021 17:46
-
Maks10000000017.12.2022 13:26
-
vnviy123407.05.2023 17:38
-
irinkaff117.06.2022 02:54
-
Uniquehatter24.04.2020 02:42
-
дзхен22.09.2021 11:50
-
lily2006260106.06.2023 21:21