20. Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов в тексте и вывести те слова, длина которых меньше заданного числа.

Program s1; Type st=string; Var t,t1,tn,sl,txt,m:st;n,a,g,z,k,q:integer;

Begin tn:=''; Writeln('ввести исходный текст'); Readln(t); n:=length(t);

m:=copy(t,n,1); if m='.' Then begin Writeln('ввести число'); Readln(a); t1:=copy(t,1,n-1)+' '; k:=pos(' ',t1); g:=0; k:=0; q:=0; While t1<>'' do

Begin k:=pos(' ',t1); sl:=copy(t1,1,k-1); g:=g+1; z:= length(sl);

If z<a then begin //k:=k+1;

q:=q+1; end else txt:=txt+ copy(t1,1,z+1); Delete(t1,1,k); end;

n:=length(txt); Delete(txt,n,1); txt:=txt+'.'; Writeln(txt); if q=0

then Writeln('Нет слов, длина которых меньше заданного числа'); end

Else Writeln ('Вы забыли в конце поставить точку!!!'); end.

21. Максим найти Program ZAD1; Uses Crt; Var a:array[1..100] of integer; i,n,max:integer;

BEGIN ClrScr; Writeln('Введите количество элементов массива'); Readln(n); For i:=1 to n do begin Writeln('Введите',i,'-ый элемент массива'); Readln(a[i]); end; max:=a[1]; For i:=1 to n do begin if max<a[i] then max:=a[i]; end;Writeln('Наибольший элемент равен ',max); Readln; END.