Question

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

Answer 1

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