инфа / шпоры
.docxПосчитать кол-во слов.
program pr2;
uses crt;
var a:array[1..10,1..10] of integer;
b:array[1..10] of real;
i,j,n,m,k,s:integer;
sred,min:real;
begin
writeln('vvedi massiv NxM');
write('N=');
readln(n);
write('M=');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
k:=0;
s:=0;
sred:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
s:=s+a[i,j];
k:=k+1;
end;
sred:=s/m;
b[i]:=sred;
sred:=0;
s:=0;
k:=0;
end;
for i:=1 to n do
write(b[i],' ');
writeln;
min:=b[i];
for i:=1 to n do
if min>b[i] then
min:=b[i];
write('min=',min);
readln;
end.
Удалить самое длин.слово.
Program bilet20;
Uses crt;
Var max,k,i,N,y,j,p:integer;
S,s1,B:string;
A:array[1..100] of string;
C:array[1..100] of integer;
Begin
Clrscr;
Writeln('Vvedite stroku: ');
Readln(S);
y:=1;
s:=' '+s+' ';
for i:=1 to length(s) do
Begin
If S[i]=' ' then
Begin
For j:=i+1 to length(s) do
If S[j]=' ' then
Begin
a[y]:=copy(s,i+1,j-i-1);
c[y]:=i;
y:=y+1;
Break;
end;
End;
End;
max:=Length(A[1]);
For i:=1 to y-1 do
Begin
If max<Length(A[i]) then
Begin
max:=Length(A[i]);
B:=A[i];
p:=i;
End;
End;
n:=length(s);
s:=copy(s,1,c[p])+Copy(s,c[p]+2+length(b),n-c[p]-2-length(b));
Writeln('Samoe dlinnoe slovo: ',B,' Stroka: ',s);
Readln;
End.