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.
Чтобы массив заполнялся от -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.
1) WAN (Wide Area Network) - это глобальная вычислительная сеть, которая не ограничена географической локацией - квартира, этаж или здание. Чувствуете разницу с LAN? Там локальная, а здесь глобальная сеть - вот он ключ - масштаб.
LAN - Local Area Network или просто ЛВС локальная вычислительная сеть - локалка. Она бывает домашняя на 5-6 человек, а бывает офисная на 50 человек. LAN покрывает небольшую зону: квартиру, помещение, пару этажей или здание.
3)Локальные сети-это сети,доступные определённому кругу лиц,это может быть несколько компьютеров в одном помещении соединённых частной сетью или кабелем,пользователи которых могут обмениваться друг с другом
Глобальная сеть или интернет-это сеть в которой объединены Пк со всего мира.С глоб.сети люди обмениваются информацией,файлами и т.д.
Объяснение:
ну как то так на 2 вопрос я не знаю прости
:((