Цитата:
2)Дан массив А размера N. Сформировать новый массив B того же размера по след правилу: элеменнт Bk равен среднему арифметическому элементов массива А с номерами от K до N.
|
Код:
uses crt;
const n=10;
var a: array[1..n] of integer;
b: array[1..n] of real;
i,k: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random(100)-40;
for i:=1 to n do begin
b[i]:=0;
for k:=i to n do
b[i]:=b[i]+a[k];
b[i]:=b[i]/(n-i+1);
end;
writeln('a[i] b[i]');
for i:=1 to n do
writeln(a[i]:4,' ',b[i]:4:6);
readln;
end.