Они отличны друг от друга, но если установить именно связь, то:
Интранет — это Интернет в миниатюре, который построен на использовании протокола IP для обмена и совместного использования некоторой части информации внутри этой организации.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50
Узнавать новое
Общаться
Играть в игры
Загружать файлы
Обведённое не обязательно, т.к. это уже есть в условии выше, но, коль в задании так, то на всякий случай сделал)) Вот программа, на всякий случай, обычно же блок-схемы для программ пишут:
var x, y: real;
begin
readln(y);
if (y > 10) then x := sqr(y);
if (y <= 10) then x := y;
if (y = 0) then x := 0;
writeln(x);
end.
А это в сокращённом виде, так сказать, оптимизированном:
var x, y: real;
begin
readln(y);
if (x > 10) then x := sqr(y)
else x := y;
writeln(x);
<span>end;</span>