Задача про массивы

[Max_Grinyuk]

Gongled,ааааа.теперь понятно, спасибо.......
СПАСИБО ОГРОМНОЕ ВСЕМ, КТО ОТВЕТИЛ, И ОСОБЕННО ТЕМ, КТО НАПИСАЛ ПРОГРАММУ!!!!! ОЧЕНЬ НУЖНО БЫЛО!!!!!!!!!!!!!!!!!!!!

[-HunteR-]

Держи:

program massiv;
uses crt;
var
i,n:integer;
s:real;
a: array [1..300] of real;
begin
s:=0;
clrscr;
randomize;
write('Vvedite kolichestvo elementov massiva:');
readln(n);
for i:= 1 to n do
begin
a[i] := random(250);
end;
for i:= 1 to n do
begin
s:= s+ a[i];
end;
s:=s/n;
for i:= 1 to n do
begin
a[i]:= a[i]/s;
writeln(a[i]);
end;
readln;
end.

[Max_Grinyuk]

-HunteR-, спс огромное!!!