Ответы на вопрос:
Язык: pascal var i, k: integer; a: array[1..10] of integer; begin for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do if a[i] = 5 then k : = k+1; writeln(k); end.
Популярно: Информатика
-
Сделаю самым лучшим ответом хелп ми ...
dashapendus200311.06.2021 06:04 -
1. Classified as computer generations? 2. The elementary base of computers...
Пааапртоо30.12.2022 13:04 -
Как связана информатика с физкультурой?...
Юлясруля19.11.2022 12:10 -
Составить программу, которая организует ввод массива a [1..10] с клавиатуры,...
lera97824.03.2020 01:42 -
Этот вопрос по игре Terraria, когда я захожу в игру, все нормально,...
Rostislav20035312.10.2021 19:03 -
Алия заметила, что в набранной таблице добавила лишний столбец D. Выбери...
помогитееее46845734516.06.2020 05:28 -
Информатикадан комек...
Кактус1220050409.07.2020 03:24 -
Процессы связанные с ... информации называются информационным процессами...
0000201727.02.2021 00:53 -
. IEEE - … 2. FCC - … 3. К стандартам беспроводной связи относятся:...
lipaalexandrova05.04.2022 08:14 -
При регистрации в компьютерной системе каждому пользователю выдаётся...
ВанюткаВано28.08.2020 07:39