сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4

var

i : integer; / / объявляем переменную целочисленного типа.

arr : array [1 ... 10] of integer; / / объявляем массив.

Begin

for i : = 1 to 10 do / / начало цикла.

begin

arr[i] : = random (-7, 10); / / заполняем элемент массива числами из диапазона - 7; 10.

write (arr[i] * 4 + ' '); / /вывод на экран в строку элементов массива, увеличенных в 4 раза

end;

End.