Срочно !!!! Заполнить собственными индексами элементы массива B1,B2...B10.

Question

Срочно !!!!
Заполнить собственными индексами элементы массива B1,B2...B10.

Answer 1

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var b:array[1..10] of integer;
  for var i:=1 to 10 do begin
    b[i]:=i; Write(b[i],' ')
    end
end.

Результат:
1 2 3 4 5 6 7 8 9 10

Comments

чтото както стиль непонятный и не в одну строку но с варами

---

var внутри блока - это стандартная базовая возможность PascalABC.NET независимо от версии. Остальное - просто школьный вариант решения, как на древних паскалях.

---

Я пишу решения сообразно тем балам, которые автор вопроса выставляет за решение. Если балов много, а задача простая - решаю её "по-школьному" трудозатратно. А если задача громоздкая, но баллов мало - то пишу максимально кратко с привлечением всех возможностей PascalABC.NET