Подскажите что не так? Пишет ошибку:Нет индексного свойства по умолчанию для функционального типа 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.
Please enter comments
Please enter your name.
Please enter the correct email address.
You must agree before submitting.

Copyright © 2024 SCHOLAR.TIPS - All rights reserved.