Составить программу, заполняющую массив из 10 элементов, числовой последовательностью.
1,4,9,16...
Var A:array[1..10]of integer;
i:integer;
Begin
For i:= 1 to 10 do
Begin
A[i]:=i*i;
Write(A[i], )
End
End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
