Помогите написать. В долгу не останусь. 25 баллов ;)
Помогите написать. В долгу не останусь. 25 баллов ;)
Гость
Ответ(ы) на вопрос:
Гость// 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
Не нашли ответ?
Похожие вопросы