Опубликовано 08.03.2018 по предмету Информатика от Гость

Составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран чётные элементы массива/
СРОЧНО

Ответ оставил Умник

Var a: array[1..12] of integer;
    i: integer;
begin
   randomize;
   write('массив:  ');
   for i:=1 to 12 do
   begin
     a[i]:=random(40);
     write(a[i],' ');
   end;
   writeln;
   write('четные элементы:  ');  
   for i:=1 to 12 do 
   if (a[i]>0) and (a[i] mod 2 = 0) then write(a[i],' ');
end. 

массив:  10 27 38 8 25 22 31 13 27 14 12 11 
четные элементы:  10 38 8 22 14 12 

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.