Арифметические действия над элементами массива.

[danilchican]

У меня такая задача на дом...
Составьте программу, которая осуществляет ввод в массив с клавиатуры размеров 6 файлов в байтах (от 100 до 2000) и высчитывает средний размер файла...

Помогите пожалуйста!!.(
Надо делать это в Pascal ABC

[IT-man]

var
s,i:integer;
a:array[1..6] of integer;
begin
s:=0;
for i:=1 to 6 do begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s/6);
end.

[danilchican]

Сообщение от IT-man

var
s,i:integer;
a:array[1..6] of integer;
begin
s:=0;
for i:=1 to 6 do begin
readln(a[i]);
s:=s+a[i];
end;
writeln(s/6);
end.

Спасибо большое))))
А как ещё вставить чтобы показывало в байтах???я ноль в паскале(