Question

Помогите написать. В долгу не останусь. 25 баллов ;)

Answer 1

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('>',ReadInteger('N='));
  Writeln('Общий размер файлов, байт- ',a.Sum);
  Writeln('Средний размер файла, Кбайт- ',a.Average/1024:0:2);
  Writeln('Максимальный рзмер имеет файл №',a.IndexMax+1)
end.

Пример
N= 6
> 1300 830 263 1900 172 1500
Общий размер файлов, байт- 5965
Средний размер файла, Кбайт- 0.97
Максимальный рзмер имеет файл №4