Технический форум - Нужна программа

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Нужна программа (http://www.tehnari.ru/f41/t32754/)

Troll

03.02.2010 22:32

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

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

Vladimir_S

04.02.2010 10:13

Цитата:

Сообщение от Troll (Сообщение 290896)

Задание:
Дан массив M1..M20. Вычислить:
d[i]=(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.

Часовой пояс GMT +4, время: 23:32.