Var txt: string; i,k,n,m,mn: integer; a: array of string; begin write('предложение: '); readln(txt); k:=0; mn:=length(txt); for i:=1 to length(txt) do if txt[i]=' ' then k:=k+1; k:=k+1; setlength(a,k+1); for i:=1 to k-1 do begin a[i]:=copy(txt,1,pos(' ',txt)-1); delete(txt,1,pos(' ',txt)); end; a[k]:=txt; n:=length(a[1]); for i:=2 to k do begin if n+length(a[i])<mn then begin mn:=n+length(a[i]); m:=i-1; end; n:=length(a[i]); end; writeln('количество букв: ',mn); writeln('слова: ',a[m],' ',a[m+1]); end.
предложение: кот пришел домой в три часа ночи количество букв: 4 слова: в три
Const N = 13; Var A,B:array[1..N] of integer; i,j,m:integer; k:byte; Begin Randomize; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(N); Write(' ',A[i]) End; WriteLn; Write('Уникальные элементы:'); m:=0; For i:= 1 to N do Begin k:=1; For j:= 1 to N do if i<>j then if A[i]=A[j] then k:=0; if k=1 then Begin m:=m+1; B[m]:=A[i]; End End; For m:=1 to m do Begin A[m]:=B[m]; Write(' ',A[m]) End; End.
Var A:array[1..10000] of integer; n,Min,Max,B:integer; Begin Write('Введите размерность массива: ');ReadLn(n); Write('Введите массив A(',n,'): '); For n:= 1 to n do Read(A[n]);
Min:=1; Max:=1; For n:= 2 to n do Begin if A[n]<Min then Min:=n; if A[n]>Max then Max:=n; End; WriteLn('Min(A) = A[',Min,'] = ',A[Min]); WriteLn('Max(A) = A[',Max,'] = ',A[Max]);
B:=A[Max]; A[Max]:=A[Min]; A[Min]:=B;
Write('A(',n,'):'); For n:= 1 to n do Write(' ',A[n]) End.
Const n = 3; m = 4; Var A:array[1..n,1..m] of integer; B:array[1..m,1..n] of integer; i,j:integer; Begin Randomize; WriteLn('Исходная матрица:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' ') End; WriteLn; End; WriteLn; WriteLn('Транспонированная матрица:'); For i:= 1 to M do Begin For j:= 1 to N do Begin B[i,j]:=A[j,i]; Write(B[i,j]:3,' ') End; WriteLn End; End.
