Program n1;

Uses Crt;

Var a:array[1..10,1..10] of byte;

i,j,s,m,n:integer;

k:longint;

begin

Clrscr;

writeln('Введите размерность матрицы mxn: ');

write('m= ');readln(m);

write('n= ');readln(n);

writeln('Введите элементы матрицы:');

for i:=1 to m do

for j:=1 to n do begin

write('a[',i,',',j,']= ');

readln(a[i,j]);

end;

writeln('Матрица');

s:=1;

k:=0;

for i:=1 to m do begin

for j:=1 to n do begin

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

if a[i,j] in [2..8] then begin

s:=s*a[i,j];

k:=k+1;

end;

end;

writeln;

end;

writeln('Количество элементов в интервале от 2 до 8: ',k);

writeln('Их произведение: ',s);

write('Для выхода нажмите Enter');

readln;

end.

Program n1;

Uses Crt;

Var a:array[1..10,1..10] of byte;

summ:array[1..10] of byte;

i,j,m,n:integer;

begin

Clrscr;

writeln('Введите размерность матрицы mxn: ');

write('m= ');readln(m);

write('n= ');readln(n);

writeln('Введите элементы матрицы:');

for i:=1 to m do

for j:=1 to n do begin

write('a[',i,',',j,']= ');

readln(a[i,j]);

end;

writeln('Матрица');

for i:=1 to m do begin

for j:=1 to n do begin

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

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

end;

writeln;

end;

writeln('Сумма элементов в каждой строке: ');

for i:=1 to m do writeln(i,' строка: ',summ[i]);

write('Для выхода нажмите Enter');

readln;

end.

Program N5;

Uses Crt;

Var a:array[1..10,1..10] of char;

tabl:array[33..175] of integer;

h: text;

s:string;

k:char;

i,j,n,m,q,max,d:integer;

f:boolean;

begin

Clrscr;

Assign (h,'matrix.txt');

Reset (h);

i:=0;

While Eof (h) = false do

begin

Readln(h,s);

i:=i+1;

j:=0;

f:=false;

for q:=1 to length(s) do begin

if (s[q]=' ') or (q=length(s)) then f:=true

else f:=false;

if f=false or (q=length(s)) then k:=s[q];

if f then begin

j:=j+1;

a[i,j]:=k;

tabl[ord(k)]:=tabl[ord(k)]+1;

max:=tabl[ord(k)];

d:=ord(k);

end;

end;

end;

Close(h);

n:=i;

m:=j;

writeln('Считанный символьный массив из файла');

for i:=1 to n do begin

for j:=1 to m do write(a[i,j]:4);

writeln;

end;

for i:=33 to 175 do

if max
max:=tabl[i];

d:=i;

end;

writeln;

writeln('Чаще всего в массиве встречается символ "',chr(d),'"');

write('Нажмите Enter');

readln;

end.

Program Maximum;

Uses Crt;

Const a:array[1..4, 1..4] of real=

(( 3.0, 0.9, 1.4, 2.9 ),

( 3.7, -1.1, 2.8, -1.2),

(-1.3, 0.7, 3.7, 1.9 ),

(-2.8, 3.1, -2.4, -2.1));

Var max:real;

i,j:integer;

begin

Clrscr;

writeln('Исходная матрица: ');

for i:=1 to 4 do begin

for j:=1 to 4 do begin

write(a[i,j]:6:2)

end;

writeln;

end;

max:=a[1,1];

for i:=1 to 4 do

for j:=1 to 4 do

if max
writeln('Максимальный элемент матрицы: ',max:3:1);

write('Для завершения нажмите Enter');

readln;

end.

Program Massiv;

Uses crt;

Var a:array[0..59] of integer;

b,c:array[0..9] of integer;

i,s,j,m:integer;

begin

Clrscr;

writeln('Њ ббЁў A');

randomize;

for i:= 0 to 59 do begin

a[i]:=round(random(10));

write(a[i],' ');

end;

writeln;

writeln('Њ ббЁў B');

randomize;

for i:= 0 to 9 do begin

b[i]:=round(random(10));

write(b[i],' ');

end;

writeln;

writeln('Њ ббЁў C');

for i:=0 to 9 do begin

s:=0;

m:=b[i];

for j:=0 to 59 do if m=a[j] then s:=s+1;

c[i]:=s;

write(c[i],' ');

end;

readln;

end.