Сформировать массив из 10 случайных чисел от 2 до 8. 1)все четные числа разделить на 2, все нечетные увеличить в 3 раза. 2)вывести на экран все числа, которые больше своего соседа слева , , нужно .хотя бы 1 часть)

Program z10; var  a,b: array [1..10] of integer; i: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(999); end; for i: =1 to 10 do begin if(a[i] mod 2=0)then [i]: =a[i] div 2 else a[i]: =a[i]*3; write(a[i],' '); end; 2) program z10; var  a,b: array [1..10] of integer; i,r: integer; begin randomize; for i: =1 to 10 do begin a[i]: =random(999); end; r: =a[1]; for i: =2 to 10 do begin if(a[i]> r)then  write(a[i],' '); r: =a[i]; end; end.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n='),2,5); a.println;   var b: =a.groupby(t-> t).select(t-> (t.key,t.(t-> t[0])           .select(t-> t[1]).toarray;   writeln('сдано на 5: ',b[3]);   writeln('сдано на 4: ',b[2]);   writeln('сдано на 3: ',b[1]);   writeln('не допущено: ',b[0]) end. пример n= 20 4 4 3 5 4 5 2 4 4 4 5 4 3 3 4 2 3 2 2 2 сдано на 5: 3 сдано на 4: 8 сдано на 3: 4 не допущено: 5

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readalltext('input.txt');   writealltext('output.txt',s.groupby(c-> c).select(t-> (t.key,t.count))           .where(t-> t[1]> 1).select(t-> t[0]).orderby(t-> t).joinintostring('')) end. пример во входном файле input.txt записана строка petrwpoqwwefrnmvndihbgfuiusbnyaysinrivniweuwepkwqeofkwpr в выходном файле output.txt будет получена строка befiknopqrsuvwy