Цитата:
Сообщение от Troll
Задание:
Дан массив 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.