Informatika / 6 - Двумерные массивы

Условие задачи №1

Ввести двумерный массив A3×4 . Определить среднее геометрическое положительных чётных элементов, считая, что они в нём есть.

Тестовые примеры к задаче №1

1)

Входные данные:

Исходный массив A:

Выходные данные:

В массиве всего 5 четных элементов, их произведение P = 4*8*2*12*4 = 3072

Среднее геометрическое равно SrG = 5 3072 = 4,98

2)

Входные данные:

Исходный массив A:

Выходные данные:

В массиве всего 6 четных элементов, их произведение P = 4*8*12*14*10*16 = 860160

Среднее геометрическое равно SrG = 6 860160 = 9,75

if (A[i,j] mod 2=0) and (A[i,j]>0) then begin

p:=p*A[i,j];

k:=k+1;

end;

//вычисление среднего геометрического как корня k-й степени

//из произведения P, составленного из k сомножителей

SrG := exp((1/k)*ln(p)); writeLn('всего чётных элементов ', k); writeLn('их произведение ', p);

writeLn('среднее геометрическое ', SrG:8:2);

end.

Условие задачи №2

Ввести двумерный массив AN×M . Каждый положительный элемент

увеличить на произведение индексов этого элемента. Массив вывести до изменения и после.

Тестовые примеры к задаче №2

1)

Входные данные:

N = 3 M = 3

Блок-схема к задаче №2

Листинг программы на Pascal к задаче №2

program ABC; const Nmass=10;

var A:array[1..Nmass,1..Nmass] of integer; N,M,i,j: byte;

begin cls;

//ручной ввод массива

writeLn('Введите число элементов в массиве A'); readLn(N,M);

writeLn('Вводим элементы массива A:'); for i:=1 to N do

for j:=1 to M do begin

readLn(A[i,j]);

end;

//вывод массива до измененния

writeLn('Исходный массив A:'); for i:=1 to N do

begin

for j:=1 to M do write(A[i,j]:5);

writeLn;

end;

// умножение положительных элементов на произведение собственных индексов

for i:=1 to N do for j:=1 to M do

if A[i,j]>0 then A[i,j]:=A[i,j]*i*j;

//вывод массива поле измененния writeLn;

writeLn('массив A после изменения:'); for i:=1 to N do

begin

for j:=1 to M do write(A[i,j]:5);

writeLn;

end;

end.

Условие задачи №3

Ввести двумерный массив AN×M , вывести его. Определить k – номер

столбца, содержащего наибольшее количество положительных элементов. Далее найти максимум среди отрицательных элементов расположенных правее этого столбца и поменять его с первым элементом массива.

Тестовые примеры к задаче №3

Выходные данные:

больше всего положительных элементов в столбце номер 2 массив A после изменения:

2

Листинг программы на Pascal к задаче №3

program ABC; const Nmass=10;

var A:array[1..Nmass,1..Nmass] of integer; ZAMOK:boolean; N,M,i,j,k,Imax,Jmax,p,Pmax: byte; buf:integer;

begin cls;

//ручной ввод массива

writeLn('Введите число элементов в массиве A'); readLn(N,M);

writeLn('Вводим элементы массива A:'); for i:=1 to N do

for j:=1 to M do begin

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

readLn(A[i,j]);

end;

//вывод массива до измененния

writeLn('Исходный массив A:'); for i:=1 to N do

begin

for j:=1 to M do write(A[i,j]:5);

writeLn;

end;

//определение столбца, в котором больше положительных элементов

//подсчёт положительных в первом столбце

Pmax:=0;

for i:=1 to N do if A[i,1]>0 then

Pmax:=Pmax+1;

//теперь, зная начальное значение Pmax,

//можем приступить к поиску максимума и

//k-номера столбца,

//содержащего наибольшее число положительных элементов k:=1;

for j:=2 to M do begin

p:=0;

for i:=1 to N do if A[i,j]>0 then

p:=p+1; if p>Pmax then

begin Pmax:=p; k:=j;

end;

end;

writeLn('больше всего положительных элементов в столбце номер

', k);

// теперь ищем максимум среди отрицательных в столбцах справа от k-й

if k<M then begin

ZAMOK:=TRUE;

for j:=k+1 to M do for i:=1 to N do

if A[i,j]<0 then if ZAMOK then

begin Imax:=i; Jmax:=j;

ZAMOK:=FALSE; end

else

if A[i,j]>A[imax, jmax] then begin

Imax:=i;

Jmax:=j;

end; if ZAMOK then

writeLn('справа от найденного столбца нет отрицательных элементов')

else begin

buf:=A[1,1];

A[1,1]:=A[Imax,Jmax];

A[Imax,Jmax]:=buf;

end;

end else

writeLn('справа от найденного столбца нет элементов');

//вывод массива поле измененния writeLn;

writeLn('массив A после изменения:'); for i:=1 to N do

begin

for j:=1 to M do write(A[i,j]:5);

writeLn;

end;

end.