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

1

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

Лучший Ответ!
2013-11-04T18:36:01+00:00

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.
вот))) если хочешь могу написать чтобы выводила и сами цифры массива, чтобы потом можно было наглядно проверить все)))
щас будет))) ещё 2 мин подожди)))
прошу)))
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.
СУПЕР! СПАСИБО! ВЫ ОЧЕНЬ ОЧЕНЬ ПОМОГЛИ!
всегда пожалуйста)))