Заполните целочисленный массив А размерностью 10 элементов по формуле 2 + 3m, где m —...

Question

Заполните целочисленный массив А размерностью 10 элементов по формуле 2 + 3m, где m — порядковый номер элемента массива, и выведите его на экран монитора в одну строку.
Сохраните программу и оправьте на проверку учителю.

Answer 1

Var a:array[1..10] of integer;
m:integer;
begin
for m:=1 to 10 do
begin;
a[m]:=2+3*m;
writeln(a[m]);
end;
end.

Answer 2

Var
  A: Array[10] of integer;
  i:integer;
Begin
  for i := 1 to 10 do
    A[i] = 2 + 3*i;
  for i := 1 to 9 do
    write(A[i], ' ');
  writeln(A[10]);
End.

Comments

Хех, показалось что это я случайно сделал такие красивые отступы. Моё уважение.

---

Дело привычки. Без кодстайла совместный проект на 10k+ не напишешь.

---

* строк