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

Question

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

Answer 1

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 

Comments

Спасибо Вам огромное,я очень благодарна.

---

Не за что.