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

NikulinStasFrost NikulinStasFrost    2   04.07.2019 16:40    5

Ответы
cotik22890 cotik22890  02.10.2020 20:10
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.
ПОКАЗАТЬ ОТВЕТЫ
oraevadiana oraevadiana  02.10.2020 20:10
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика