Ответы на вопрос:
Var a: array[1..20] of integer; i,k: integer; begin for i: =1 to 20 do begin read(a[i]); if not odd(a[i]) then k+=1; end; writeln(k); end.
Популярно: Информатика
-
ЭКЗАМЕН С объяснением Что бы препод понял как сделал Дан целочисленный массив...
Veronicagitarowe28.09.2021 12:44 -
Впрограмме abc pascal вычислить 1*2*3**n, где n≤50 и вводится с клавиатуры, результат...
drshev23.05.2020 07:00 -
Берілген суреттер мен мәтінге сәйкес файлдардың кеңейтілімін анықтап, жауабын...
mehan201820.03.2023 15:17 -
1в примерах выбери только те,в которых один объект находится в отношениях с другим...
lushnikov200425.11.2022 20:05 -
Как записывается число а87 в 16 степени в восьмиричной системе счисления?...
Lasnochas11.06.2020 21:16 -
Написать программу для подсчета количества символов “*” в строке длиной не более...
eataev16.01.2020 06:19 -
Имом М І І 1 мм при 6 пот да лепим Hello! ООЮ. x 195 x: 194 X 150 Спрайты Новый...
qppqwoow19.11.2020 13:27 -
Решить задачу на Си: Даны координаты 3-х точек. Нужно сказать, являются ли они...
albinasobolevap06lwp16.11.2022 01:02 -
Скорость передачи данных через adsl-соединение равна 256000 бит/c. передача файла...
Smetanka8207.05.2020 09:50 -
Алгоритм похода в магазин за хлебос...
Roma76543211205.11.2020 00:21