Программа Pascal:
var
a:array of integer;
x:integer;
begin
write('Введите длину массива - '); readln(x);
setLength(a,x);
for var i:=0 to x-1 do begin
a[i]:=random(101);
writeln(a[i]);
end;
end.
Дедик - это такой же компьютер, как и Ваш, но без мониторов, клавиатур и мышек. Дедики редко встречаются в одном физическом экземпляре, то есть дедик - это часть сервера. Сервер рассчитан на определённое количество таких компьютеров. Вы можете производить над дедиком те же действия, что и со своим компьютером (но не физические). В зависимости от расположения сервера Вы будете ощущать отставание процессов дедика. Так, например, если сервер с дедиком расположен в США, то, находясь в СНГ, Ваши действия, производимые над дедиком, произойдут лишь через некоторое время. Как известно, связано это с пингом, скоростью интернета как Вашего, так и сервера.
Используется абсолютно для разных вещей, но чаще всего - для работы, которая требует бесперебойного потребления памяти компьютера. К примеру, Вы компилируете ядро операционной системы или производите какие-то незаконные операции, скрываете свой IP-адрес через собственную VPN-сеть или тестируете вирусное программное обеспечение. Также в последнее время встречается сервис, предоставляющий услуги мощного компьютера для игр. Всё это тоже дедики, позволяющие запустить на Вашем максимально слабом компьютере безумно мощные игры, требующие соответственные характеристики Вашего железа.
программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999
затем выводит все элементы у которых первая цифра больше второй.
var
n : integer;
d : array of integer;
begin
n := random(10, 100);
d := new integer[n];
d := arrRandom(n, 10, 9999999);
for var i := 0 to n-1 do begin
var a1, a2 : integer;
a1 := d[i];
repeat
a1 := a1 div 10;
until a1 < 10;
a2 := d[i] mod 10;
if a1 > a2 then writeln(d[i]);
end;
end.
print([i for i in range(0,100)])
При вводе чисел:
print([int(input()) for i in range(0,100)])