Помогите составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран четные элементы массива

Question

Информатика

Танюха

10 марта, 19:44

Помогите составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран четные элементы массива

+1

Ответы (1)

Знаешь ответ?

Татуся · Answer 1

Program massiv;

var a, n, i, kol:integer; m:array[1 ... 40] of integer;

beginwriteln ('Массив из случайных 12 чисел:'); for i:=1 to 12 do beginm[i]:=random (40) + 2; write (m[i]:4); if m[i] mod 2 = 0 then kol:=kol+1; end; writeln; writeln ('Количество четных чисел'); write (kol); end.

С тебя лучший ответ)