Составьте программу дан массив чисел. определить количество элементов, находящихся в интервале от 1 до 12 и расположенных до максимального элемента массива.
133
235
Ответы на вопрос:
var
a: array[1..10000000] of integer;
i, n, ans: integer;
begin
ans : = 0;
read(n);
for i : = 1 to n do
begin
read(a[i]);
if i = n then break;
if ((a[i] > 1) and (a[i] < 12)) then ans : = ans + 1;
end;
write(ans);
end.
Популярно: Информатика
-
арсен18718.01.2021 15:10
-
Natusya0912328.05.2020 18:04
-
Айринчик15.05.2021 16:50
-
Елена202829.07.2022 12:47
-
Знайка5000000019.12.2021 13:27
-
Катерина12233304.12.2022 02:24
-
UTOYKA22816.03.2022 23:43
-
Примари19.07.2021 15:38
-
арсений20114.11.2021 00:34
-
fkdsf23425.11.2021 03:54