Составте программу паскаль массивы Объявите массив - вопрос №1669339420 от laralarisa1 16.08.2021 04:53

Question

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

laralarisa1 · Answer

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.

Составте программу паскаль массивы Объявите массив целых чисел из 20 элементов. · Назначьте отрицате