1) составьте программу , которая заполняет массив а [1..10] случайными целыми числами в диапозоне от 1 до 10 , затем меняет местами первый элемент со вторым, третий с четвертым и т.д. выведите на экран исходный и полученный массивы. 2)составьте программу , которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 0 до 10 , затем превый элемент меняет местами с максимальным элементом .выведите на экран исходный и полученный массив.

Уж больно знакомая решаю с файлами - так как во всех случаях обычно она даётся  на решение с файлами)) var s,t: integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(s,t); if s< =t then writeln(t-s) else writeln (t+12-s); close(output ); end. та же б то же   решение токо без файлов)) var s,t: integer; begin writeln('s='); readln(s); writeln('t='); readln(t); if s< =t then writeln(t-s) else writeln (t+12-s); readln; end. успехов : )

// pascalabc.net 3.2, сборка 1381 от 04.02.2017 // внимание! если программа не работает, обновите версию! type   point=(real,real); procedure getpoint(var q: point); begin   var a,b: real;   write('введите координаты точки: '); read(a,b);   q: =(a,b) end; function distance(a: point): =sqrt(sqr(a[0])+sqr(a[1])); begin   var a,b: (real,real);   getpoint(a);   getpoint(b);   var d1: =distance(a);   var d2: =distance(b);   if d1< d2 then writeln('первая точка ближе')   else       if d1> d2 then writeln('вторая точка ближе')       else writeln('точки равноудалены') end. пример введите координаты точки: 13.7 -11.25 введите координаты точки: 18 12.4 первая точка ближе