Question

Написать фрагмент программы для ввода массива с клавиатуры

Answer 1

for i:=1 to 5 do  
begin 
Write('A[',i,']: ');
Readln(A[i]);
end;