Даны два массива: а(10) и в(10 сформируйте массив с(10), предварительно определив его длину, включая из массивов а и в только четные по номеру элементы. вы ведите на экран массивы а(10), в(10) и с(10).

// task 1,2 const n= 15; var a: array[1..15]of integer;       i,min,max: integer; begin   min: =99999;   max: =0;   //заполняем массив случайными числами   //и выводим его   for i: =1 to 15 do begin       a[i]: =random(100);       write(a[i]: 5);       if a[i]> max then max: =a[i];       if a[i]< min  then min: =a[i];   end;   writeln();   //вывод в обратном порядке   for i: =1 to 15 do write(a[n-i+1]: 5);   writeln();   writeln ('разность max-min ',max-min); end.

// pascalabc.net function isnice(n: longint): boolean; // отвечает на вопрос, является ли число красивым var   d,nd,sd: byte; begin   sd: =0; nd: =0;   repeat       d: =n mod 10;       sd: =sd+d; inc(nd);       n: =n div 10   until n=0;   isnice: =(sd mod nd = 0) end; var   i,n,k: longint; begin   write('порядковый номер "красивого" числа: '); read(n);   i: =1; k: =0;   repeat       if isnice(i) then inc(k);       if k< > n then inc(i)   until k=n;   writeln('красивое число равно ',i) end. тестовое решение: порядковый номер "красивого" числа: 15 красивое число равно 20