Составить программу , которая в тексте удаляет все пробелы.

Program z1; var st: string;   begin   writeln('введите строку'); readln(st);     while (pos(' ',st)  < > 0) do begin delete(st, pos(' ',st), 1);         end;   writeln(st);   readln; end.  

// pascalabc.net 3.3.5, сборка 1636 от 10.03.2018 // внимание! если программа не работает, обновите версию! begin   // создание файла   var f: file of integer;   var n: =20; // размер файла   randomize;   rewrite(f,'f.bin');   var b: integer;   loop n do begin       b: =random(-50,50);       write(f,b)       end;   f.close;   // вывод содержимого исходного файла   reset(f,'f.bin');   while not f.eof do print(f.read);   writeln;   // нахождение суммы четных компонент файла   // в связи с двусмысленностью условия считается, что   // понятие четности применяется к значению компоненты.   f.reset;   var s: =f.readelements.where(t-> t.iseven).sum; // -48   // увеличение на значение суммы отрицательных компонент   // второй половины файла   f.seek(f.filesize div 2);   while not f.eof do begin       b: =f.read;       if b< 0 then begin           b+=s;           f.seek(f.filepos-1);           write(f,b)           end       end;   // удаляем минимальную компоненту   f.reset;   var a: =f.readelements.toarray;   var imin: =a.indexmin;   a: =(a? [: imin]+a? [imin+1: ]).toarray;   f.reset;   foreach b in a do write(f,b);   f.truncate;   // вывод содержимого полученного файла   f.reset;   while not f.eof do print(f.read);   writeln;   f.close end. пример -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -47 -42 41 -38 36 26 -2 -21 20 37 -30 6 -32 -25 45 -15 -12 0 31 20 -90 41 -86 36 26 -50 замечание чтобы получить именно такие данные, укажите в программе randomize(3);

Решение на си: #include < stdio.h> int main() {   int array[100]; // массив элементов   int n, k, count = 0; // числа   printf("введите число для сравнения: ");   scanf("%d", & k); // запоминаем число для сравнения   printf("\nвведите количество элементов: ");   scanf("%d", & n); // запоминаем количество элементов в массиве   printf("\nвведите %d элементов: ", n);   for (int i = 0; i < n; i++) {       scanf("%d", & array[i]); // считываем массив     if (array[i] > k) { // если число в массиве строго больше нужного        count++; // то увеличиваем счётчик      }   }   printf("\n%d элементов больше, чем %d.", count, k); // выводим результат   return 0; }