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 <21) then n:=n*a[i];

     end;

     writeln;

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

end.