Что не так? Параметр цикла for должен описываться в заголовке var a: array of integer; i,n:integer; begin readln(n); for i:=0 to n do begin if a[i]=0 then writeln('easy') else writeln ('hard'); end; end.
Параметр цикла for должен начинаться с 1, а не с 0. Также необходимо инициализировать массив "a" перед использованием.
Исправленный код будет выглядеть примерно так:
var a: array of integer; i, n: integer; begin readlnnnn; SetLengtha,na, na,n; // инициализация массива for i := 0 to n - 1 do begin if aiii = 0 then writeln′easy′'easy'′easy′
else writeln ′hard′'hard'′hard′; end; end.
Параметр цикла for должен начинаться с 1, а не с 0. Также необходимо инициализировать массив "a" перед использованием.
Исправленный код будет выглядеть примерно так:
vara: array of integer;
i, n: integer;
begin
readlnnnn;
SetLengtha,na, na,n; // инициализация массива
for i := 0 to n - 1 do
begin
if aiii = 0 then
writeln′easy′'easy'′easy′ else
writeln ′hard′'hard'′hard′;
end;
end.