Ошибка в типе.

@xFORCEx · Регистрация: 25.04.2011

Студворк — интернет-сервис помощи студентам

Pascal

var
n,x,i:integer;
z:array[]of integer;
a,b:file of integer;
sr:real;
begin
assign(a,'путь к файлу');
assign(b,'путь к файлу');
{$I-}
reset(a);
{$I+}
if IOresult<>0 then
writeln('файл не найден')
else
begin
n:=1;
while not(eof(a)) do
begin
z[n]:=read(a,x);
sr:=sr+z[n];
n:=n+1;
end;
sr:=sr/(n-1);
rewrite(b);
for i:=1 to n-1 do
if x[i]<sr then writeln(b,x[i]);
close(a);
close(b);
end.

z:array[]of integer; - Выдаёт Error in type. Подскажите как исправить.

@Puporev · 23.05.2011, 16:49

Pascal

1	z:array[1..1000]of integer;

Опции темы