Uses crt;
type
massiv = array [1..100] of integer;
var
mass : massiv;
n , i : integer;
begin
clrscr; // очищаем экран
randomize; // включаем генератор случайных чисел.
write('Введите кол-во элементов массива : '); readln(n);
for i:=1 to n do
begin
mass[i] := random(58) - 23;
write(mass[i], ' | ');
end;
readln;
end.
Любая ЭВМ обрабатывает информацию в машинном коде(двоичном)
Разделение предложений в тексте по смыслу
var
masiv:array[-10000..10000] of integer;
begin
for var i := -10000 to 10000 do
begin
randomize;
masiv[i] := random(-10000, 10000);
end;
end.