Составте программу паскаль массивы Объявите массив целых чисел из 20 элементов.
· Назначьте отрицательное случайное значение в диапазоне от -10 до -1 каждому элементу четного массива, а положительное случайное значение в диапазоне от 1 до 10 - нечетному.
· Отображать только те элементы массива, значения которых являются четными числами.
· Расчет и отображение суммы и среднего арифметического всех элементов на экране.
· Отобразите те элементы массива, которые больше 4.
var a: array[1..20] of integer;
i,s,k:integer;
cr: real;
begin
for i:=1 to 20 do
if i mod 2 = 0 then a[i]:=random(-10,-1) else
a[i]:=random(1,10);
for i:=1 to 20 do
if a[i] mod 2 = 0 then begin write (a[i],' ');
s:=s+a[i];
k:=k+1; end;
cr:=s/k;
writeln;
writeln('s=',s);
writeln(cr);
for i:=1 to 20 do
if a[i] >4 then write (a[i],' ');
end.