помогите с информатикой,пожалуйста :
Нужно написать программы для массивов, содержавших целые числа :
1) заполнение случайными числами из диапазона от 0 до 49,вывод значений в строку;
2)заполнение целыми числами , равными удвоенному индексу элемента , вывод значения в столбик

1.const k=15;var a:array [1..k] of integer;i:integer;beginfor i:=1 to k doa[i]:=random(50);writeln (a)end.2.const k=15;var a:array [1..k] of integer;i:integer;beginfor i:=1 to k dobegina[i]:=i*2;writeln (a[i])endend.