Question

Составить программу, которая в
водит массив из 30 случайных чисел в диапазоне от -5 до 35 и выводит 7 элемент массива

Answer 1

var a: array[1..30] of integer;

   i: integer;

begin

randomize;

for i:= 1 to 30 do a[i] := random(41) - 5;

writeln(a[7]);

end.