Подскажите что не так? Пишет ошибку: Нет индексного свойства по умолчанию для функционального типа

Program chisl;

var A:array[1 ... 10]of integer;

i:integer;

begin

for i:=1 to 10 do

begin

writeln['A[', i,']='];

read (A[i]) ;

end;

if A[i] mod 2 = 0

then begin write ('A[i]=', A[i]) ;

end;

end.

Question

Информатика

Евдокуша

10 февраля, 19:07

Подскажите что не так? Пишет ошибку: Нет индексного свойства по умолчанию для функционального типа

Program chisl;

var A:array[1 ... 10]of integer;

i:integer;

begin

for i:=1 to 10 do

begin

writeln['A[', i,']='];

read (A[i]) ;

end;

if A[i] mod 2 = 0

then begin write ('A[i]=', A[i]) ;

end;

end.

+5

Ответы (1)

Знаете ответ на вопрос?

Ипполита · Answer 1

uses crt; var A:array[1 ... 10]of integer; i:integer; beginfor i:=1 to 10 do beginread (A[i]) ; if A[i] mod 2 = 0then begin write ('A[', i,']=', A[i]) ; writeln; end; end; end.