Question

Напишите программу,которая создает массив,заполняет его случ-ми числами и к каждому элементу массива прибавляет 15 в паскале

Answer 1

var massive:array[1..10] of integer;

i:integer;

begin

for i:=1 to 10 do

begin

massive[i] := random(100);

massive[i] := massive[i] + 15;

end;

end.