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.
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
слова: в три