Чтобы массив заполнялся от -15 до 20:
program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
randomize; writeln('n='); read(n);
for i:=1 to n do c[i]:=random(36)-15;
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.
---
Чтобы был ручной ввод:
program vst;
var c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
writeln('n='); read(n);
for i:=1 to n do
readln(c[i]);
writeln;
for i:=1 to n do write (c[i],' ');
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min=',min);
writeln('k='); read(k);
for i:=n+1 downto k do c[i]:=c[i-1];
c[k]:=min;
writeln; for i:=1 to n+1 do write (c[i],' ');
end.
Программа:
X = [int(input("Введите элемент: ")) for _ in range(10)]
print("\n")
Y = [int(input("Введите элемент: ")) for _ in range(10)]
S = [el_X for el_X in X for el_Y in Y if el_X == el_Y]
print(S)
Если программа выше сложна для понимания, предложу её в другом виде:
X = []
Y = []
for _ in range(10):
num = int(input("Введите цифру: "))
X += [num] # То же, что и X.append(num)
print("\n")
for _ in range(10):
num = int(input("Введите цифру: "))
Y += [num] # То же, что и Y.append(num)
S = []
for el_X in X:
for el_Y in Y:
if el_X == el_Y:
S += [el_X]
print(S)
1) Стационарный (системный блок + монитор)
Достоинства:
+ Много размеров и вариантов комплектации
+ Легко апгрейдить и обслуживать
Недостатки:
-- Питание только от розетки (от двух розеток чаще всего, одна питает системник, другая монитор)
-- Чаще всего громоздкий
-- Требует покупки отдельного монитора, мышки, клавиатуры, колонок итд
2) Ноутбук
Достоинства:
+ Портативный, можно взять с собой в дорогу
+ Не требует покупки мыши, клавиатуры, колонок, монитора итд
+ Можно пользоваться в дороге (есть аккумулятор)
Недостатки:
-- Практически невозможно апгрейдить, проще новый купить. Можно только планки памяти заменить или добавить, но тут есть свои нюансы
-- Трудно обслуживать: иногда, чтоб поменять термопасту или просто почистить кулер, нужно пол-ноутбука разобрать, головки torx на винтах и защёлки только добавляют веселья
-- Неудобен в качестве стационарного: занимает большую часть стола. Когда комп, то можно системник вглубь под стол затолкать, монитор вплотную к краю стола придвинуть или даже к стене закрепить на кронштейн, чтоб места не занимал на столе, клаву при случае можно отодвинуть. А ноут он весь цельный, так сделать нельзя. Неудобно и тетрадку положить, и ноутбук: клавиатура и экран будут очень далеко, а на маленьком столе вовсе не поместится это великолепие
-- Покупка мыши не обязательна, но желательна: встроенный тачпад для ряда задач в принципе неудобен по определению, а для прочих нужна привычка
-- Если у ноута большой экран, то он трудно портативен, если маленький, то неудобно работать в ряде программ
3) Моноблок
Достоинства:
+ Совмещает в себе монитор и системный блок, не надо размещать громоздкий системник
+ Требует всего одну розетку, а не две, как комп
+ Не надо покупать монитор дополнительно к компу и, чаще всего, не требуются колонки
Недостатки:
-- Совершенно не портативен
-- Апгрейдить и обслуживать трудно, как ноут, хотя есть варианты
-- Клава и мышь всё-таки нужны
Program vst;
var
c:array [0..100] of integer;
j,n,k,i:integer;
min:integer;
begin
randomize; write('Введите N = '); readln(n);
for i:=1 to n do
c[i]:=random(36)-15;
writeln;
for i:=1 to n do
write (c[i],' ');
writeln;
min:=c[1];
for i:=2 to n do
if min>c[i] then min:=c[i];
writeln ('min = ',min);
write('Введите место для вставки минимального элемента К = '); readln(k);
writeln ('Вывод массива:');
write('Было: ');
for i:=1 to n do
write (c[i]:3,' ');
for i:=n+1 downto k do
c[i]:=c[i-1];
c[k]:=min;
writeln;
write('Стало: ');
for i:=1 to n+1 do
write (c[i]:3,' ');
end.