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

Question

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

Answer 1

Const N=10;
var a:array [1..N] of integer;
    i,sum:integer;
    sr:real;
begin
     sr:=0; sum:=0;
     for i:=1 to N do
         begin
         a[i]:=random(10)+1;
         sum:=sum+a[i];
         end;
     for i:=1 to N do
         write(a[i]:3);
     writeln;
     sr:=sum/10;
     writeln('Среднее значение элементов массива:',sr);
end.