Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.их количество вывести в выходной файл. !

Var t: text; s: string: i,b: integer;   begin readln(s); {ввод строки} i: =0; b: =pos(' ',s); while  b< > 0 do   begin inc(i); delete(s,b,1); b: =pos(' ',s); end; assign (t, 'c: \primer.txt'); {соединение с файлом primer.txt} rewrite(t); {подготовка к записи в файл} write(t,i); {запись в файл значение переменной "i"} close(t); {завершение работы с файлом} end. создавать файл не обязательно, программа сама его создаст.  оцените мой ответ если это то, что вам нужно.

"наименьшее число среди чётных элементов последовательности" - эти слова можно понимать двояко: "элементы, которые стоят на чётных местах в последовательности (второй, четвёртый, шестой и т.д.)" или "элементы, значение которых чётное". поэтому два решения: для элементов, стоящих на чётных местах в последовательности: program starays; uses crt; const n=10; var       i,ch,min: integer; begin     writeln('*** alphaeus is ***');     writeln('*** ok ***');     writeln(); writeln();     writeln('программа запрашивает n чисел, находит наименьшее число среди чётных элементов последовательности');     write('введите 1-e число: '); read(ch);     write('введите 2-e число: '); read(ch);     min: =ch;     for i: =3 to n do         begin             write('введите ',i,'-e число: '); read(ch);             if (min> ch) and (i mod 2=0) then min: =ch;         end;     writeln('минимальное число среди элементов последовательности с четными номерами равно ',min); end. для элементов, значение которых чётное: program starays; uses crt; const n=10; var     i,ch,k,min: integer; begin     writeln('*** alphaeus is ***');     writeln('*** ok ***');     writeln(); writeln();     writeln('программа запрашивает n чисел, находит наименьшее число среди чётных элементов последовательности'); {находим первый чётный элемент}     k: =1;     repeat         write('введите ',k,'-e число: '); read(ch);         k: =k+1;     until ch mod 2 = 0;     min: =ch;   {находим остальные  чётные элементы}      for i: =k to n do         begin             write('введите ',i,'-e число: '); read(ch);             if (ch mod 2 = 0) and (min> ch) then min: =ch;         end;     writeln('минимальное число среди элементов, значение которых чётное, равно ',min); end.