Question

Составте программу паскаль массивы Объявите массив целых чисел из 20 элементов.
· Назначьте отрицательное случайное значение в диапазоне от -10 до -1 каждому элементу четного массива, а положительное случайное значение в диапазоне от 1 до 10 - нечетному.
· Отображать только те элементы массива, значения которых являются четными числами.
· Расчет и отображение суммы и среднего арифметического всех элементов на экране.
· Отобразите те элементы массива, которые больше 4.

Answer 1

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.