Срочно!!!!! для к.р. ** завтра .Сформировать массив из 25 случайных чисел из диапазона от...

Question

Срочно!!!!! для к.р. на завтра .Сформировать массив из 25 случайных чисел из диапазона от 20 до 120 .Найти произведение элементов массива с пятнадцатого по двадцатый включительно.B PASCAL

Answer 1

var a,b,c:array[1..100] of integer;

i,n:integer;

begin

     n:=1;

     for i:=1 to 25 do

     begin

          a[i]:=random(20)+100;

          write(a[i],' ');

          if (i > 14) and (i

     end;

     writeln;

     write('Произведение=',n); writeln;

end.