Даны массивы а(4,6) и в(5,6). Найти среднее значение каждой строки в этих массивах, используя подпрограмму.

Удалить самое длинное слово из строки

programPr_1;

usescrt;

varmax,k,i,N,y,j,p:integer;

S,s1,B: string;

A:array[1..100] ofstring;

C:array[1..10] ofinteger;

Begin

Clrscr;

Writeln('Vvedite stroku: ');

Readln(S);

y:=1;

s:=' '+s+' ';

fori:=1 tolength(s) do

Begin

IfS[i]=' ' then

Begin

Forj:=i+1 tolength(s) do

IfS[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]);

Fori:=1 toy-1 do

Begin

Ifmax

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.

uses crt;

var s,sl,smax: string;

i,imax,dmax: integer;

begin

clrscr;

write('vvedite stroku: ');

readln(s);

s:=s+' '; sl:=''; dmax:=0;

for i:=1 to length(s) do

if s[i]' ' then sl:=sl+s[i]

else

begin

if length(sl)>dmax then

begin

imax:=i-length(sl);

dmax:=length(sl);

smax:=sl;

end;

sl:='';

end;

writeln ('samoe dlinnoe slovo "',smax,'" dlinoi v ',dmax,' simvolov');

delete(s,imax,dmax);

writeln(s);

readln

end.



Посчитать количество слов в строке определенной длины

Program Pr_1;

uses crt;

var

n: string[50];

i,k: integer;

begin

clrscr;

write('vvedite stroky: ');

readln(n);

i := length(n);

if i>0 then

begin

k:=1;

while i>0 do

begin

if n[i]=' ' then

k:=k+1;

i:=i-1;

end;

end

else

k:= 0;

writeln('kolichestvo slov v stroke = ',k);

readln;

end.

Program Pr_1;

Uses crt;

Var s:string[50]; I,k:integer;

Begin

Clrscr;

Write(‘vvod stroke:’);

Readln(s);

Until length(s)0;

K:=0;

For i:=1 to length(s) do

If s[i]=’ ’ then k:=k+1;

Write(‘koli4estvo slov v stroke = ’,k:4);

Readln;

End.


Найти среднее в каждом столбце, занести в отдельный одномерный массив и найти меньшее из них!

ProgramPr_1;

usescrt;

typemas=array[1..10, 1..10] ofinteger;

vara:mas;

b:array[1..10] ofreal;

n,m,i,j,k,sum,z:integer;

sr,min:real;

Begin

clrscr;

write('koli4estvo strok - ');

readln(n);

write('koli4estvo stolbcov - ');

readln(m);

writeln;

randomize;

fori:=1 ton do

Begin

forj:=1 tom do

Begin

a[i,j]:=-10+random(20);

write(a[i,j]:4);

end;

writeln;

end;

writeln;

forj:=1 tom do

Begin

sum:=0;

k:=0;

sr:=0;

fori:=1 ton do

Begin

sum:=sum+a[i,j];

k:=k+1;

sr:=sum/k;

end;

b[j]:=sr;

writeln('srednee po (',j,') stolbcy = ',sr:4:2);

end;

writeln;

writeln('srednue zna4enu9 v otdelnom massive :');

forj:=1 tom do

write(b[j]:8:2);

writeln;

writeln;

min:=b[1];

forj:=1 tom do

Ifb[j]

min:=b[j];

write('minimalnui element - ',min:4:2);

readln;

end.

Создать двумерный массив, вычислить в нем среднее значение каждой строки и занести результаты в отдельный массив

Begin

clrscr;

write('koli4estvo strok - ');

readln(n);

write('koli4estvo stolbcov - ');

readln(m);

writeln;

randomize;

fori:=1 ton do

Begin

forj:=1 tom do

Begin

a[i,j]:=-10+random(20);

write(a[i,j]:4);

end;

writeln;

end;

writeln;

fori:=1 ton do

Begin

sum:=0;

k:=0;

sr:=0;

forj:=1 tom do

Begin

sum:=sum+a[i,j];

k:=k+1;

sr:=sum/k;

end;

b[i]:=sr;

writeln('srednee po (',j,') stroke = ',sr:4:2);

end;

writeln;

writeln('srednue zna4enu9, v otdelnom massive :');

fori:=1 ton do

write(b[i]:8:2);

readln;

end.


В массиве 5 на 5 найти строку с наибольшей суммой вывести номер и строку

ProgramPr_1;

usescrt;

constn=5;

m=5;

vara:array[1..10,1..10] ofinteger;

i,j,max,sum,z,k:integer;

Begin

clrscr;

randomize;

writeln('ushodnui massiv');

readln;

fori:=1 ton do

Begin

forj:=1 tom do

Begin

a[i,j]:=random(15);

write(a[i,j]:4);

end;

writeln;

end;

fori:=1 ton do

Begin

sum:=0;

forj:=1 tom do

sum:=sum+a[i,j];

writeln;

write('summa elementov (',i,') stroku = ',sum:3);

Ifsum>max then

Begin

max:=sum;

k:=i;

end;

end;

writeln;

writeln;

textcolor(green);

write('summa maxumalna v (',k,') stroke = ',max:3);

writeln;

textcolor(red);

writeln('stroka s maxumalnou summou elementov');

forj:=1 tom do

Begin

textcolor(yellow);

write(a[k,j]:4);

end;

readln;

end.


Даны два массива a(n) b(m). Найти для каждого массива максимум и минимум, и их порядковый номер. После каждый максимум каждого массива поделить на количество элементов в массиве.

ProgramPr_1;

usescrt;

typemas=array[1..10] ofinteger;

vara,b:mas;

n,m,i,j,max_a,min_a,max_b,min_b:integer;

k,l,p,z:integer;

rez_1,rez_2:real;

Begin

clrscr;

write('vvedite kolu4estvo elementov 1 massiva - ');

readln(n);

write('vvedite kolu4estvo elementov 2 massiva - ');

readln(m);

randomize;

writeln;

fori:=1 ton do

Begin

a[i]:=random(15);

write(a[i]:4);

end;

writeln;

writeln;

forj:=1 tom do

Begin

b[j]:=random(15);

write(b[j]:4);

end;

writeln;

k:=1;

l:=1;

max_a:=a[1];

min_a:=a[1];

fori:=1 ton do

Begin

Ifa[i]>max_a then

Begin

max_a:=a[i];

k:=i;

end;

Ifa[i]

Begin

min_a:=a[i];

l:=i;

end;

end;

writeln;

textcolor(yellow);

writeln('maximalnuu element v 1 massive pod nomerom (',k,') = ',max_a);

writeln('minimalnuu element v 1 massive pod nomerom (',l,') = ',min_a);

writeln;

p:=1;

z:=1;

max_b:=b[1];

min_b:=b[1];

forj:=1 tom do

Begin

Ifb[j]>max_b then

Begin

max_b:=b[j];

p:=j;

end;

Ifb[j]

Begin

min_b:=b[j];

z:=j;

end;

end;

textcolor(red);

writeln('maximalnuu element vo 2 massive pod nomerom (',p,') = ',max_b);

writeln('minimalnuu element vo 2 massive pod nomerom (',z,') = ',min_b);

writeln;

textcolor(green);

writeln('rezyltat delenia v 1 sly4ae = ',max_a/n:4:3);

writeln('rezyltat delenia vo 2 sly4ae = ',max_b/m:4:3);

readln;

end.


Даны массивы а(4,6) и в(5,6). Найти среднее значение каждой строки в этих массивах, используя подпрограмму.

ProgramProcedur_1;

usescrt;

typemas=array[1..10, 1..10] ofinteger;

vara:mas;

n,m,i,j,sum,k,x,y:integer;

sr:real;

ProcedureVvod(c,b:integer);

Begin

randomize;

fori:=1 toc do

Begin

forj:=1 tob do

a[i,j]:=random(20);

end;

end;

ProcedureVivod(c,b:integer);

Begin

fori:=1 toc do

Begin

forj:=1 tob do

write(a[i,j]:4);

writeln;

end;

end;

ProcedureObrabotka(c,b:integer);

Begin

fori:=1 toc do

Begin

sum:=0;

k:=0;

forj:=1 tob do

Begin

sum:=sum+a[i,j];

k:=j;

end;

writeln('summa elementov v (',i,') stroke = ',sum);

writeln('koli4estvo elementov = ',k);

writeln('srednee zna4enie elementov (',i,') stroku = ',sum/k:4:2);

readln;

end;

end;

Begin

clrscr;

write('strok = ');

readln(n);

write('stolbcov = ');

readln(m);

Vvod(n,m);

Vivod(n,m);

Obrabotka(n,m);

readln;

clrscr;

write('strok=');

readln(x);

write('stolbcov=');

readln(y);

Vvod(x,y);

Vivod(x,y);

Obrabotka(x,y);

readln;

end.



3057582889561106.html
3057627193033598.html
    PR.RU™