Решите пожалуйста!!!TurboPascal Сформировать и вывести ** экран массив,элементы которого...

Question

Решите пожалуйста!!!TurboPascal Сформировать и вывести на экран массив,элементы которого заданы датчиком случайных чисел на интервале [-45 , 98](размер произвольный)

Answer 1

const n=10;

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

i,k:integer;

begin

randomize;

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

for i:=1 to n do

begin

a[i]:=random(144)-45;

write (a[i],' ')

end;

writeln;

end.