Pascal.Работа с массивами и циклами.

[Миша44]

Используйте массив для хранения некоторых вещественных значений. Проведите последовательное вычисление среднего арифметического 2-х, 3-х и т.д. (до n) элементов массива и занесите полученные значения в другой массив(использовать цикл с предусловием,постусловием,цикл с параметром)

[Don Karleone]

ну показывайте, что сами написали

[Миша44]

uses crt;
const nmax=100;
var a,b:array[1..nmax] of real;
n,i,j,k:byte;
sr:real;
begin
clrscr;
randomize;
repeat
write('Razmermassiva do ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('massiv:');
for i:=1 to n do
begin
a[i]:=10*random;
write(a[i]:5:2,' ');
end;
writeln;
writeln;
for i:=2 to n do
begin
sr:=0;
for j:=1 to i do
sr:=sr+a[j];
b[i-1]:=sr/j;
end;
writeln('Massiv srednix:');
write(' ':6);
for i:=1 to n-1 do
write(b[i]:5:2,' ');
readln
end.