Дан массив целых чисел из 44 элементов,заполненный случайным образом числами из промежутка [-18;30].Вывести на экран элементы с 13 по 26!

Ответ учителя по предмету Информатика

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]); 

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