Var mass:array[1..44] of integer;
i:integer;
begin
randomize;
for i:=1 to 44 do
begin
mass[i]:=(random(31)-random(19));
if (i>12) and (i<27) then writeln('номер ',i,' равен ',mass[i]); <br>end;
end.
Пример работы:
номер 13 равен 15
номер 14 равен -17
номер 15 равен -16
номер 16 равен -3
номер 17 равен 10
номер 18 равен 29
номер 19 равен -17
номер 20 равен 1
номер 21 равен -1
номер 22 равен 8
номер 23 равен -16
номер 24 равен 26
номер 25 равен -4
номер 26 равен 15