var y:m;i,t,k,min,k0:integer;

begin

for k:=1 to kn do begin

k0:=0; min:=1000;

writeln('введите кол-во эл-ов в ',k,'-ом массиве');read (t);

writeln('теперь введите элементы этого массива');

for i:=1 to t do

read(y[i]);

for i:=1 to t do

if y[i]<min then min:=y[i];

writeln('минимальный элемент этого массива равен ',min);

for i:=1 to t do

if y[i]=min then for i:=i to t do

if y[i]=0 then k0:=k0+1;

writeln('количество нулей массива после минимального значения равно ',k0);

write;

write;

end;

end;

begin

vvod(5,A);

end.

Задача 6.

program S2_Z6;

type str=string[100]; ms=array[1..100] of str;

var A:ms;

procedure vvod(m:integer;var x:ms);

var i:integer;

begin

for i:=1 to m do begin writeln('введите ',i,'-ю строку');

readln(A[i]);end; end;

procedure moped(m:integer;var x:ms);

var i,k:integer; st:str;

begin

for i:=1 to m do begin k:=0;

st:=A[i];

while pos('мама',st)<>0 do begin k:=k+1;delete(st,pos('мама',st),4); end;

writeln('кол-во слов мама в ',i,'-ой строке ',k);end;end;

begin

vvod(5,A);

moped(5,A);

end.

Задача 7.

Условие: Дан массив из 7 строк, в каждой из которых не более 50 элементов. Удалить из каждой строки все пробелы и записать количество удалённых пробелов в конец этой строки.

Программа:

program S2_Z7;

type s=string[50]; ms=array[1..100] of s;

var A:ms;

procedure vvod(m:integer;var x:ms);

var i:integer;

begin

for i:=1 to m do begin writeln('введите ',i,'-ю строку');

readln(A[i]);end; end;

procedure prob(m:integer;var x:ms);

var i,k:integer;st,p:s;

begin

for i:=1 to m do begin

st:=x[i]; k:=0;

while pos(' ',st)<>0 do begin delete(st,pos(' ',st),1);k:=k+1;end;

str(k,p);

insert(p,st,length(st)+1); writeln(i,'-ая строка:', st);end;

end;

begin

vvod(7,A);prob(7,A);

end.

Задача 8.

Условие: В текстовом файле отсортировать строки по возрастанию их длин.

Прграмма:

program S2_Z8;

type ft=text; mas=array[1..100] of string;

var f1:ft;k,i,j:integer;s:string;A:mas;

procedure sozd(var f:ft;n:integer);

var i:integer; s:string;

begin assign(f,'c:\1.txt');rewrite (f);

for i:=1 to n do

begin writeln('введите ',i,'-ю строку');readln(s);

writeln(f,s);

end; close(f);

end;

procedure w(var f:ft);

var s:string;

begin writeln('измененный фаил будет выглядеть так:');

reset(f);

while not eof(f) do begin readln(f,s); writeln(s)

end; close(f);

end;

begin writeln('введите кол-во строк в файле'); readln(k);

sozd(f1,k);

reset(f1);

while not eof(f1) do

begin for i:=1 to k do begin readln(f1,s); A[i]:=s;end;end;

for j:=1 to k do

for i:=1 to k do

if length(a[i])<length(a[i-1]) then begin

s:=a[i];a[i]:=a[i-1];a[i-1]:=s;end;

close(f1);

rewrite(f1);

for i:=1 to k do writeln(f1,a[i]);

close(f1);

w(f1);

end.

Задача 9.

Условие: В файле из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.

Программа:

program S2_Z9;

type fi=file of integer; m=array[1..100] of integer;

var f1:fi;n:integer;

procedure vvod(n:integer;var f:fi);

var i,a:integer;

begin

assign (f,'c:\f.int');

rewrite(f);

writeln('Введите компоненты файла');

for i:=1 to n do begin

read(a);write(f,a);end;

close (f);

end;

procedure sort(n:integer;var f:fi);

var buf:fi;s,i,j,k:integer; a:m;

begin

reset(f);

assign (buf,