Составьте программу, которая формирует массив из двадцати случайных целых чисел от -30 до 30 и подсчитывает количество четных элементов. на экран выводятся исходные массив и результат
olgafajzulloev
2
03.10.2019 23:50
1
Другие вопросы по теме Информатика
bodajkunasta
28.04.2020 20:47
nastya652
13.04.2021 21:02
бракус11
13.04.2021 21:07
olyadudina98
29.04.2021 15:27
katy12345652564
29.04.2021 15:27
Хрустяня
29.04.2021 15:24
ChaffaYT
07.04.2020 09:28
58584
07.10.2019 10:40
MihailoMK
31.03.2021 19:11
Популярные вопросы
- Вкаком случае пишется like, а в каком likes...
2 - Сочинение на тему юшка нравственые проблемы. отношение людей к...
3 - Как в николае болконском проявились семейные черты болконских?...
2 - Подготовить 2-3 примера иллюстрация о нарушении прав человека (указать...
1 - Прямоугольник с диагональю,равной 3 корня из 3,вращается вокруг...
3 - Правила по которым определяются окончания тся и ться в глаголах...
1 - 14 . сочинение на основе услышаного . когда мой сосед переехал...
3 - Выражения: a*(-0,25b)*(-0.8c) и (7а--2а) и -2(0,5х-1,4у)+2х+3,2у...
2 - Периметр подобных равнобедренных прямоугольных треугольников относятся...
1 - Грамматическая основа предложения . она подплыла к самой середине....
2
var a:array[1..20] of integer;
i,k: integer;
begin
write('Массив: ');
for i:=1 to 20 do
begin
a[i]:=random(61)-30;
if a[i] mod 2 = 0 then k:=k+1;
write (a[i]:3,' ')
end;
writeln;
write('Количество четных элементов ',k)
end.