Помогите решить СРОЧНО))))

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

1

Ответы и объяснения

Лучший Ответ!
2012-12-08T22:56:50+00:00

Решение на FPC IDE 2.6.0

var a:array[1..10] of integer; i,arf: integer;

begin
for i:=1 to 10 do
begin
a[i]:=random(10);
arf:=arf+i;
end;
arf:=round(arf/10);
for i:=1 to 10 do
writeln('a[',i,']= ',a[i]);
writeln('Srednee arifmetichnoe = ',arf);
readln;
end.