Дан массив целых чисел, состоящий из 15 элементов. Значение элементов массива задаются случайным образом в диапазоне от 10 до 80. Написать программу, которая считает количество элементов массива, значение которых больше 50
fgggg2qq
1
10.12.2020 11:29
1
Другие вопросы по теме Информатика
tagirova2
14.12.2019 19:16
pomorcevakata98
14.12.2019 19:15
Альбина1597
14.12.2019 19:13
diana15152
14.12.2019 19:13
D1manch1k
14.12.2019 19:03
MaksimVip12
25.03.2020 14:07
fenix8383
06.12.2019 21:58
марусяice1
06.12.2019 22:06
vvasilchenkosn
06.12.2019 20:34
Kot2343
09.12.2020 17:04
Популярные вопросы
- Сколько раз выполнится цикл, если ввести однозначное число? Двузначное?...
2 - Запишите условный оператор, который выводит результат, проверяя одну...
3 - Можно ли в этой программе два условных оператора в неполной форме...
2 - Как можно записать возведение в квадрат, куб, 10-ю степень на языке...
3 - Запишите в тетрадь цикл со счётчиком, который уменьшается от нужного...
1 - Какова может быть сумма цифр двузначного числа? Трёхзначного? К-значного?...
2 - Выполните ручную прокрутку программы при N =123. Определите итоговое...
2 - Чем отличаются два оператора вывода: вывод a write(а); и вывод a...
1 - Найдите и запишите в тетрадь перевод английских слов while, do, count....
2 - Запишите в тетрадь команды, с которых можно: 1) записать в переменную...
2
var A : array [10..80] of integer;
var N, x, i, c, k : integer;
begin
readln(N);
for i:=1 to N do begin
A[i] := i;
read(A[i]);
end;
readln(x);
c := 0;
for k:=1 to N do
if A[k] = x then begin
c := c + 1;
end;
writeln(c);
end.
Объяснение: