Цитата:
Сообщение от Linka
А как можно с клавиаутуры ввести размер массива ?
|
Да просто объявить исходный размер массива "с запасом", потом обычным образом ввести N и все циклы обработки элементов массива вести до N.
Код:
Var
A:ARRAY[1..500] of WORD;
N,i:INTEGER;
Begin
Write('N= ');
ReadLn(N);
For i:=1 to N do
A[i]:=1;
...