Які слова можно утворити зі слова презентація.

Зеніт рація пан цар цезар

Const nx=100; var t: text; m: array[1..nx] of string; s,d: string; ch: char; var i,p,j: integer; begin assign(t,'d: \1t\sip.txt'); reset(t); while not eof(t) do begin readln(t,s); p: =1; while p> 0 do begin i: = i +1; p: =pos(' ',s); if p> 0 then m[i]: =copy(s,1,p-1)else m[i]: =s; delete(s,1,p); //writeln(m[i]); end; end; close(t); for ch: ='а' to 'я' do begin for j: =1 to i do begin if (m[j].length > 0) and (ch = uppercase(copy(m[j],1, then begin //write(ch); writeln(m[j]); m[j]: =''; end; end; end; end.

Var a: array[1..100,1..100] of integer; i,j,n,m,max,min: integer; begin write ('введите количество строк: '); read(n); writeln; write ('введите количество элементов в строке: '); read(m); writeln; writeln('введите массив: '); for i: =1 to n do begin for j: =1 to m do begin write(' a[',i,',',j,']='); read(a[i,j]); end; writeln; end; writeln; writeln('исходный массив: '); for i: =1 to n do begin for j: =1 to m do write(a[i,j],' '); writeln; end; writeln; writeln('конечный массив: '); for i: =1 to n do begin min: =a[i,1]; max: =a[i,1]; for j: =2 to m do begin if (min> a[i,j]) then min: =a[i,j]; if (max