9. Двумерные массивы
1. Алгоритмы действий над элементами двумерного массива
Найти произведение элементов К-го и Р-го столбцов квадратной матрицы, размерностью 6х6.
program lr9;
var m:array[1..6,1..6] of real;
p,k,z,i,s:integer;
x:real;
begin
writeln('vvedite nomer stolbtsa p');
readln(p);
writeln('vvedite nomer stolbtsa k');
readln(k);
for s:=1 to 6 do
begin
writeln('vvodite ',s,' stroku');
for i:=1 to 6 do
begin
writeln('vvedite ',i,' chislo');
readln(m[i,s]);
end;
end;
for i:=1 to 6 do
begin
writeln;
for s:=1 to 6 do
write(m[i,s],' ');
end;
writeln;
for i:=1 to 6 do
begin
x:=m[i,k]*m[i,p];
writeln(x);
end;
readln(z);
end.
Дан двумерный массив размерностью 5х3, заполненный целыми числами. Найти произведение элементов нечетных строк матрицы.
program lr9z2;
var m:array[1..5,1..3] of integer;p,k,z,i,s:integer;x:real;
begin
for i:=1 to 5 do
begin
writeln('vvodite ',i,' stroku');
for s:=1 to 3 do
begin
writeln('vvedite ',s,' chislo');
readln(m[i,s]);
end;
end;
for i:=1 to 5 do
begin
writeln;
for s:=1 to 3 do
write(m[i,s],' ');
end;
for i:=1 to 5 do
for s:=1 to 3 do
begin
if m[i,s] mod 2<>0 then p:=p+m[i,s];
end;
writeln;
writeln(p);
readln(z);
end.
Дан двумерный массив размерностью 5х6, заполненный целыми числами и величина К. Найти количество элементов, равных К и их сумму
program lr9z3;
var m:array[1..5,1..6] of integer;p,k,z,i,s:integer;x:real;
begin
writeln('vvedite znachenie k');
readln(k);
for i:=1 to 5 do
begin
writeln('vvodite ',i,' stroku');
for s:=1 to 6 do
begin
writeln('vvedite ',s,' chislo');
readln(m[i,s]);
end;
end;
for i:=1 to 5 do
begin
writeln;
for i1:=1 to 6 do
write(m[i,s],' ');
end;
for i:=1 to 5 do
for i1:=1 to 6 do
begin
if m[i,i1]=k then
begin
x:=x+1;
z:=z+m[i,s];
end;
end;
writeln;
writeln('kolichestvo elenentov ravnih k =',x);
writeln('summa elementov ravnih k =',z);
readln(p);
end.
Дан двумерный массив размерностью NхM, заполненный целыми числами. Определить, есть ли в данном массиве столбец, в котором имеются одинаковые элементы
program lr9z4;
const n=5;m=5;
var s:array[1..5,1..5] of real;p,k,z,i,i1:integer;x:real;
begin
for i:=1 to n do
begin
writeln('vvodite ',i,' stroku');
for i1:=1 to m do
begin
writeln('vvedite ',i1,' chislo');
readln(s[i,i1]);
end;
end;
for i:=1 to n do
for i1:=1 to m do
begin
if s[i,i1]=s[i+1,i1] then x:=x+1;
end;
if x>=1 then writeln('est');
readln(x);
end.
