Заполнить массив из 5 элементов случайными числами из интервала от -15 до 15, вывести на экран, а затем увеличить каждый элемент в два раза и повторно вывести на экран. , !

Готово. Решение в файле. Если будут вопросы, пиши ниже.

Вот. program pr; var a:array[1..5] of integer;i:integer; begin randomize; for i:=1 to 5 do a[i]:=-15+random(31); for i:=1 to 5 do write(a[i]:4); writeln(); for i:=1 to 5 do a[i]:=a[i]*2; for i:=1 to 5 do write(a[i]:4); end.