Question

Создать одномерный массив из 10 целых чисел из диапазона от -3 до 15.
Вывести массив на экран.
Найти в этом массиве среднее арифметическое элементов.
ПАСКАЛЬ. У МЕНЯ ЛАБА!!1!

Answer 1

program prog;

var

b:array[1..10] of integer;

i,sum:integer;

begin

   sum:=0;

   for i:=1 to 10 do begin

       b[i]:=random(-18)+15;

       write(b[i], ' ');

       sum:=sum+b[i];

   end;

   writeln();

   write('Среднее арифметическое равно ', sum/10:0:2);

end.