задачки

[мандаринка]

Пожалуйста, умоляю, помогите решить задачи по Паскалю.
1. Дан массив (randomize использовали). Все номера умножить на последний номер.

2. Дан массив A[i]. Массив B[i] надо сделать так, чтобы каждое число в B было среднеорифметическим от A до того номера. Не помню точно формулировку ,имеется такая запись-пояснение: В[2]=А[1]+А[2]/2 далее А[1]+А[2]+А[3]/3 и т.п.

Во всех задачах A[1..10] и A[i]=random (1000).

Благодарю заранее. Вы меня спасете:

[Карась]

2)

ch := 0;
For i := 1 To N Do
  Begin 
    ch := ch + A[i];
    B[i] := ch / 2;
  End;

[puporev]

Задача 1.

uses crt;
var a,b:array[1..10]of longint;
    i,n:byte;
begin
clrscr;
randomize;
for i:=1 to 10 do
  begin
    a[i]:=random(1000);
    write(a[i],' ');
  end;
writeln;
for i:=1 to 10 do
  begin
    a[i]:=a[i]*a[10];
    write(a[i],' ');
  end;
readln
end.

Задача 2.

uses crt;
var a:array[1..10]of integer;
    b:array[1..10]of real;
    i,j:byte;sum:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
   begin
     a[i]:=random(1000);
     write(a[i],' ');
   end;
writeln;
for i:=1 to 10 do
   begin
    sum:=0;
    for j:=1 to i do
      begin
       sum:=sum+a[j];
      end;
    b[i]:=sum/i;
    write(b[i]:8:2);
   end;
readln
end.

[Карась]

Меня немножко поправил комрад _Dmitry и пожалуй я покажу свой код второй задачи.
В коде комрада puporev'a мне непонравилось использование цикла при нахождении суммы элементов. Это явно в пустую тратит время

Var A : array [1..10] of Integer;
    B : array [1..10] of Real;
    i : Byte;
    ch : Integer;

Begin
Randomize;
for i := 1 To 10 Do
   Begin
     A[i] := Random(10);
     Write(A[i],' ');
   End;

Writeln;
ch := 0;
For i := 1 To 10 Do
  Begin
    ch := ch + A[i];
    B[i] := ch / i;
  End;

For i := 1 To 10 Do Write(B[i]:3:2,' ');
Readln;
End.