В паскале надо сделать задачу

[HOB]

Задан массив существующих чисел А(2n), n<=200. Сделать программу которая вычисляет сумму тех чисел из А(n+1),..,A(2n), которые превышают среднее арифметическое значение чисел A(1),..,A(n)

[Namolem]

помочь != решить за меня

определись что нужно и стучи в асю 313-2004

[HOB]

НАПИШИТЕ КОД!

[ROMA2PVT]

НАПИШИТЕ КОД!

Для написания программ полностью за вас есть соответствующий раздел ФРИЛАНС

[HOB]

Напишите как прописать сумму A(n+1) и как прописать среднее арифметическое....

[Stilet]

Это навскидку.

const n=200;
var i,sum:integer; a:array[1..n] of integer;
begin
 for i:=1 to n do begin
  a[i]:=random(100);
  sum:=sum+a[i];
  Write(a[i]:6);
 end;
 Writeln;writeln('Сумма ',sum);
 Readln;
end;