Question

с помощью генератора случайных чисел на интервале (0,100) получите целочисленный массив, состоящий из 25 элементов"

Answer 1

Program posled;Var a: array[1..100] of integer;    
  i, n: integer;Begin  Write (‘Сколько элементов? ’);
 Readln (n);
  For i=1 to n do      
 begin               
    a[i]:= Random(58)-23;        
     writeln (a[i],’ ‘);   
    end;End.