Подскажите что не так? Пишет ошибку:Нет индексного свойства по умолчанию для функционального типаProgram chisl;var A:array[1..10]of integer;i:integer;beginfor i:=1 to 10 dobeginwriteln['A[',i,']='];read(A[i]);end;if A[i] mod 2 ...
Подскажите что не так? Пишет ошибку:Нет индексного свойства по умолчанию для функционального типа
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.
Не нашли ответ?
Похожие вопросы