Одномерный массив

[alerzo]

Помогите решить вот такую задачу. Составить программу для вычисления максимального элемента массива умноженного на среднее арифметическое этого массива. На эКран требуется вывести
*1.сумму элементов
2.номер максимального элемента
3.максимальтный элемент
4.среднее арифметическое
5.среднее арифметическое*макс.элемент
Всем кто поможет заранее спастбо..

[.Phoenix]

Могу помочь с написанием программы за вмр. 482612193 аська

[Stilet]

Ну вот так например:

MODULE Массив1;
 IMPORT StdLog,ObxRandom,Integers;
 VAR a:ARRAY(10) OF REAL; 

 PROCEDURE do*;
 VAR imax, i:INTEGER; Sum,max,sa:REAL;
 BEGIN  StdLog.Clear; imax:=0;
  FOR i:=0 TO LEN(a)-1 DO
   a[i]:=(50-ObxRandom.Uniform()*100);
   Sum:= a[i]+Sum;
   IF (a[i]<a[imax]) THEN imax:=i; max:=a[imax]; END;
        StdLog.Real(a[i]); 
		StdLog.Ln;	(* вывод строки и 0DX в рабочий журнал *)
  END;
 StdLog.Ln;
StdLog.String('Сумма элементов');StdLog.Tab;StdLog.Real(Sum);StdLog.Ln;
StdLog.String('Номер максимального');StdLog.Tab;StdLog.Int(imax);StdLog.Ln;
StdLog.String('Максимальный');StdLog.Tab;StdLog.Real(max);StdLog.Ln;
StdLog.String('Среднее арифметическое');StdLog.Tab;StdLog.Real(Sum/LEN(a));StdLog.Ln;
StdLog.String('Ср. Арифм*Макс');StdLog.Tab;StdLog.Real(Sum/LEN(a)*max);StdLog.Ln;
 END do;

END Массив1.
Массив1.do;

Результат:

-47.62496901565463
-32.85424610732787
18.68567414054911
-49.87471979105599
-44.41552827806004
8.216230644945163
-9.811550406651362
-2.727684589441719
-44.19489474696801
16.40398770868964

Сумма элементов -188.1977004409757
Номер максимального 3
Максимальный -49.87471979105599
Среднее арифметическое -18.81977004409757
Ср. Арифм*Макс 938.6307574814757

проверил - работает на 100%

[Google2010]

a:array[1..100] of double;
   i,k,n:integer;
   s:double;
begin
readln(n);
randomize;
s:=0;
for I := 1 to n  do
  a[i]:=random(50) -25+random(100)/100;
    s:=s+a[i];
    write(a[i]:8:2);
    end;
 k:=1;
 for I := 2 to n do
   if a[i]>a[k] then k:=i;
 writeln;
 writeln('1:',s:8:2);
 writeln('2:',k);
 writeln('3:',a[k]:8:2);
 writeln('4:',(s/n):8:2);
 writeln('5:',(s*a[k]/n):8:2);
 readln;
end.