Отчет по практике: Основы программирования

5. СУБД Access

1. Одномерные массивы.

Заменить каждый элемент массива средним арифметическим всех предшествующих ему элементов. Числоэлементов N >=100.

program dfh;

var A,B:array[1..100] of real;

i,n:integer;

f:text;

function sr(n:integer):real;

var i:integer; sum:real;

begin

sum:=0;

for i:=1 to n-1 do sum:=sum+A[i];

sr:=(sum)/(n-1);

end;

begin

write ('Vvedite razmer massiva A: ');

readln (n);

for i:=1 to n do begin

write ('A[',i,']='); readln (A[i]); end;

write ('Vot vvedennyy vami massiv A:');

for i:=1 to n do write (A[i]:0:2,' ');

writeln;

{***}

B[1]:=A[1];

for i:=2 to n do B[i]:=sr(i);

{***}

write ('Vot preobrazovanyi massiv A:');

for i:=1 to n do write (B[i]:0:2,' ');

assign(f,'rezult.txt'); rewrite(f);