Question

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

Answer 1

uses crt;
const n=10;
var
i:integer;
sum,sred:real;
mas:array [1..n] of integer;
begin
for i:=1 to n do
begin
mas[i]:=random(10);
end;
for i:=1 to n do
sum:=sum+mas[i];
sred:=sum/n;
write('srednee ravno ',sred);
read;
end.
вот))) если хочешь могу написать чтобы выводила и сами цифры массива, чтобы потом можно было наглядно проверить все)))

Answer 2

щас будет))) ещё 2 мин подожди)))

Answer 3

uses crt;
const n=10;
var
i:integer;
sum,sred:real;
mas:array [1..n] of integer;
begin
i:=1;
while i<=n do
begin
mas[i]:=random(10);
i:=i+1;
end;
i:=1;
while i<=n do
begin
write(mas[i],' ');
i:=i+1;
end;
i:=1;
while i<=n do
begin
sum:=sum+mas[i];
i:=i+1;
end;
sred:=sum/n;
write('srednee ravno ',sred);
read;
end.