Передача в функцию произвольного набора чисел (на разных языках программирования)

Delphi 7

Нужно объявить массив с заполнением моими значениями.

Var Temp: array[0..7] of Byte = (1, 4, 0, 210, 0, 56, 81, 225);

компилятор не принимает с ошибкой Canon initialize local variables

таже конструкция но как Const работает

Var Temp : Array[0..7] Of Byte;
Begin
Temp := (1, 4, 0, 210, 0, 56, 81, 225);
тоже не принимается компилятором

Так работает но мне не удобно так описывать

Temp[0]:=1;
Temp[1]:=4;
Temp[2]:=0;
…..

Для новых дельфи есть вот такие варианты через дженерики и хелперы.
для старых дельфи нет ничего, кроме указанных writable consts или вручную записанных как в первом посте.
Ещё есть экзотический вариант (работает и в дельфи7): https://programmersforum.ru/showpost…39&postcount=7 — объявление массива in-place (либо через переменную строкового типа), где каждое число указывается через # (максимальное число = 1114111) и можно через индексатор (1..length) брать значения.
Если нет привязки к переменной на расчетной стороне, можно передавать (объявлять) массив на клиентской стороне (на вызове), это отчасти будет как из блога выше, но только частный вариант, работающий и в дельфи7:

#include <iostream>
#include <vector>

void show_array(std::vector<int> arr) {
    for (auto a : arr)
        std::cout << a << " ";
}

int main()
{
    show_array({ 1, 4, 0, 210, 0, 56, 81, 225 });
}

function show_array(arr){
	for (a of arr)
		console.log(a);
}
show_array([1, 4, 0, 210, 0, 56, 81, 225]);

function show_array($arr){
	foreach ($arr as $a)
		echo "$a ";
}
show_array([1, 4, 0, 210, 0, 56, 81, 225]);

function show_array(){
	foreach (func_get_args() as $a)
		echo "$a ";
}
show_array(1, 4, 0, 210, 0, 56, 81, 225);