Question

Составить программу, заполняющую массив из 10 элементов, числовой последовательностью.
1,4,9,16...

Answer 1

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.

Answer 2

Массив типа real - это для демонстрации того, что Паскаль делает неявное преобразование integer -> real ?

Answer 3

Что?... =D

Answer 4

A[i] - real, i*i -integer

Answer 5

Ладно, поменяю=))

Answer 6

Да мне все равно))))

Answer 7

Program al;
Var a: Array [1..10] of Integer;
i: Integer;
Begin
For i := 1 To 10 Do
a[i] :=sqr(i);
For i := 1 To 10 Do
Write(a[i], ' ');
ReadLn;
End.
________________________

Answer 8

прости ...запуталась ....

Answer 9

Да ладно, это самая частая ошибка=)))

Answer 10

:) ....

Answer 11

a[1] := 1; - лишнее

Answer 12

убрала ...простите ....