Нужна программа

[Troll]

Нужна программа

Задание:
Дан массив M1..M20. Вычислить:
d=(Mi-M19)*E Mj/2, где Е - сумма j=1 to 20. огромное спасибо.

 

[Vladimir_S]

Задание:
Дан массив M1..M20. Вычислить:
d=(Mi-M19)*E Mj/2, где Е - сумма j=1 to 20. огромное спасибо.

VAR
 M,d:ARRAY[1..20] of REAL;
 S:REAL;
 i:INTEGER;
Begin
 S:=0;
 For i:=1 to 20 do
  begin
   Write('M[',i:2,']= ');
   ReadLn(M[i]);
   S:=S+M[i]/2;
  end;
 For i:=1 to 20 do
  begin
   d[i]:=(M[i]-M[19])*S;
   WriteLn('d[',i:2,']= ',d[i]);
  end;
 ReadLn;
End.