1. дано предложение. подсчитать число пробелов стоящих на нечетных местах, и заменить такие пробелы на символ «*». 2. дано слово, состоящее из количества букв кратного четырем. поменять в нем буквы следующим образом: первую с четвертой, вторую с третьей, пятую с восьмой, шестую с седьмой и т.д. например, из слова «карандаш» должны получить «аракшадн».

// pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('> ');   var p: =s.select((x,i)-> (x,i+(x-> x[1].isodd and (x[0]=' '));   writeln('число пробелов на начетных местах равно ',p.count);   foreach var t in p do s[t[1]]: ='*';   writeln(s) end. пример > а роза упала на лапу азора число пробелов на начетных местах равно 3 а роза*упала*на лапу*азора // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('> ');   var n: =s.length;   if n mod 4< > 0 then writeln('кол-во символов не кратно 4')   else begin       var i: =1;       repeat           swap(s[i],s[i+3]);           swap(s[i+1],s[i+2]);           i+=4       until i> n;       writeln(s)       end end. пример > карандаш аракшадн

Program z1; beginvar a,d,n,i: integer; var s: real; write('сколько всего чисел будет'); read (n); writeln('вводите числа'); for i: =1 to n dobeginread(d); a: =a+d; end; s: =a/n; write ('среднее арифметическое=',s); end. пытался сделать ввод чисел как-то через массив или автозаполнением, но тогда надо кол-во чисел, а тут n.