Информатика! написать листинг ! задан одномерный массив z(n) (n< =60 сформировать два одномер- ных массива x и y. массив х получен делением на 2 элементов массива z, стоящих на четных местах, а массив y – делением на 3 элементов массива z, стоящих на нечетных местах. в массивах х и у поменять местами первый и последний элементы.

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var Z:=ArrRandom(ReadInteger('n='),1,99);
  Writeln('Массив Z'); Z.Println;
  Writeln('Массив X');
  var X:=Z[1::2].Select(p->p/2).ToArray; Swap(X[0],X[X.Length-1]);
  X.Println;
  Writeln('Массив Y');
  var Y:=Z[::2].Select(p->p/3).ToArray; Swap(Y[0],Y[Y.Length-1]);
  Y.Println
end.

Пример
n= 8
Массив Z
74 17 35 3 33 84 48 39
Массив X
19.5 1.5 42 8.5
Массив Y
16 11.6666666666667 11 24.6666666666667

program mas_kol_otr_kol_p;

const

n=10;

var

i,s:integer;

a:array[1..n] of integer;

begin

randomize;

writeln('Введите массив 》');

for i:=1 to n do

begin

a[i]:=random(61)-30;

write(a[i]:3,' ');

end;

writeln;

writeln('Меняем отрицательные на противоположные... 》');

for i:=1 to n do

begin

if(a[i]<0) then

a[i]:=abs(a[i]);

write(a[i]:3,' ');

end;

writeln;

writeln('Удаляем третий элемент... 》');

for i:=1 to n-1 do

begin

if(i>2) then

a[i]:=a[i+1];

write(a[i]:3,' ');

end;

writeln;

writeln('Считаем сумму... 》');

s:=0;

for i:=1 to n-1 do

s:=s+a[i];

write(s);

end.

Это значит что у Вас есть установлена программа которая является от этого сайта, и для того чтобы Вас не напрягать открытием в браузере, открывается именно программа.

Сделано для того, чтобы не нагружать Ваш компьютер/ноутбук

К примеру возьмем Skype. Есть как браузерная версия, так и возможность скачать. И всегда когда вам кто то скинет ссылку на добавления в скайп, Вас изначально перебросит на сайт, где он посмотрит, если у Вас нету установленной программы, тогда он откроет на сайте, если же есть, подаст запрос об открытии программы, и запустить эту ссылку в самой программе.