Составьте программу, которая заполняет массив a[1..20] случайными целыми числами в диапазоне от 1 до 10 и находит среднее арифметическое элементов с четными значениями и нечетными индексами

Составьте программу,, которая заполняет массив а[1..20] случайными целыми числами в диапазоне от 1 до 30 и выводит наэкран элементы , значения которых являются четными и кратными3.Program Task;Var a: Array [1..20] of Integer;i: Integer;BeginFor i := 1 To 20 DoBegina[i] := Random(30) + 1;If a[i] Mod 3 = 0 ThenWrite(a[i], ' ');End;ReadLn;End.

Program CrazyCoder;vara:array[1..20] of integer;i,n,c:integer;beginfor i:=1 to 20 dobegina[i]:=random(10)+1;write(a[i],' ');if i mod 2 = 1 thenif a[i] mod 2 = 0 thenbeginc:=c+a[i];n:=n+i;end;end;writeln;writeln('Среднее арифметическое: ', c/n);end.