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

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.
Оцени ответ