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

Question

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

Comments

Не факт, мне в школе никто про другие языки, кроме Паскаля не рассказывал...

---

Верю, но ВЫ знали, что он называется Паскаль.

---

Знаете, если Вы учились даже на горной поляне в окружении отары овец, это не означает, что в школе не дают материал, о котором я писал выше.

---

Я автору задания написал замечание и вопрос задал - он на замечание отреагировал, а вопрос оставил без внимания.

---

Без учебников объясняли=D

---

"Верю, но ВЫ знали, что он называется Паскаль. "Когда знаешь всего один фрукт, тебе без разницы будет, что яблоком его звать, что фруктом...

---

Везде. Найдите учебник по которому учились (сейчас в Интернет они все выложены для свободного доступа) и убедитесь.

---

Видимо, не везде=)))

---

Плюс к тому, во введении к любому языку дается история его создания и некие сравнительные "достоинства", откуда ясно, что и другие языки существуют.

---

Материал давали, но без учебников=D

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.

Comments

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

---

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

---

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

---

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

---

Что?... =D

Answer 2

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.
________________________

Comments

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

---

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

---

Нумерация с единицы, а в цикле элементы с нуля заполняешь