Question

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

Answer 1

1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.

2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.