Составьте программу, которая формирует массив из 12 случайных чисел принадлежащих промежутку -5; 5, и выводит эти числа в столбец

var a: array[1..12] of real;

i: integer;

begin

randomize;

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

for i: =1 to 12 do writeln(a[i]);

readln;

end.

var

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

i: integer;

begin

randomize;

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

for i: =1 to 12 do writeln(a[i]);

readln;

end. 

program qq;   uses crt;   procedure nod_nok(n1,n2: integer; var a,b: integer);   var m: integer;   begin  if n1> n2 then m: =n1 else m: =n2;   a: =m-1;   repeat  a: =a+1  until ((a mod n1)=0) and ((a mod n2)=0);   while n1< > n2 do  if n1> n2 then n1: =n1-n2 else n2: =n2-n1;   b: =n1;   end;   var y,x,a,b: integer;   begin  repeat  writeln('введите 2 натуральных числа: ');   read(x,y);   until(x> 0)and(y> 0);   nod_nok(x,y,a,b);   writeln('nod(',x,',',y,')=',b);   writeln('nok(',x,',',y,')=',a);   end.

Один раз я с семьей решили поехать в лес. (суда ты пишешь что в лесу был пикник ну или что-то другое и пишешь что ты туда взял(а) но это не обязательно)) . и в лесу была узкая тропинка я пошла по ней , а потом за ним была большая дверь, которая вела вела в прекрасный сад.в саду была речка и много деревьев, я прогулялась по саду.и в саду я нашла очки и я посмотрела по сторонам но никого не было. (потом ты пишешь суда что я узнала что это очки времени и я куда то попала и все удачи в школе если не то извини