Заполните массив случайными целыми числами из интервала -7 до 25

Question

Заполните массив случайными целыми числами из интервала -7 до 25

Answer 1

Ответ:

program massiv4;

const

 n = 10;

var  

 a : array[1..n] of integer;

 i : integer;

begin

 randomize;

 for i:=1 to n do

   a[i] := random(-7,25);

 

 

 writeln('Массив: ');

 for i:=1 to n do

   write(a[i]:4);

 writeln;

 

end.

Объяснение: