PascalABC.Net const m=8; n=11; var a,b,c:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln end end.
Uses crt; const zn=[' ',':',',','!','?','-',';',')']; var s,s1,s2:string; i,k:byte; begin clrscr; writeln('Введите строку, содержащую 2 одинаковых слова:'); readln(s); s:=s+' '; for i:=1 to length(s) do if s[i] in zn then s[i]:=' '; while pos(' ',s)>0 do delete(s,pos(' ',s),1); if s[1]=' ' then delete(s,1,1); k:=0; while pos(' ',s)>0 do begin s1:=copy(s,1,pos(' ',s)-1); for i:=pos(' ',s)+1 to length(s) do if (copy(s,i,length(s1))=s1) and(s[i-1]=' ') and((s[i+length(s1)]=' ') or(i+length(s1)-1=length(s))) then begin k:=1; s2:=s1; write('Одинаковые слова ',s2); readln; exit; end; delete(s,1,pos(' ',s)); end; if k=0 then write('Нет двух одинаковых слов'); readln end.
В битах - 176
В байтах - 22
В килобайтах - 0,022