Подскажите что не так? Пишет ошибку:Нет индексного свойства по умолчанию для функционального типа
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.

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.