Ответы на вопрос:
if (a[n]> 0) and (a[n] mod 3=0) then inc(k);
inc(k) это то же самое, что и k: =k+1
Популярно: Информатика
-
Перевести два любых числа от 100 до 500 в двоичную систему счисления...
NastikLoVe2208.08.2022 22:22 -
3. даны два неравных числа x и y. большее из них заменить на сумму...
yla0045814.04.2023 10:53 -
Для долговременного хранения информации служит: 1-дисковод,2-внешние...
Veid29.12.2020 02:07 -
Может и несовершеннолетний ребёнок ( лет 15 ) быть программистом на...
К5О5Т527.07.2022 23:18 -
Создать программу в паскаль cosx 2sin(2x-1)+4.29...
Russland200013.11.2021 20:07 -
Определить номер строки ,содержащий наибольший элемент матрицы Паскаль...
ДевочкаНадя07.06.2023 12:55 -
Вячейке а1 хранится число 20. чему будет равно значение в ячейке в1,...
р666110.05.2021 01:24 -
Дорога от дома до школы и обратно занимает у ольги 1/4ч. в школу она...
hodyukmaria02.01.2023 23:18 -
Два одинаковых сервера за 2 секунды могут обработать 2 миллиона запросов...
GORH809.06.2022 16:27 -
До перерыва шахматисты играли 4/5 всего времени партии.ск. времени...
Student22324.04.2022 04:41