Алгоритмы и программы. Афанасьева Т. В - 133 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

133
for j:=1 to 5 do
begin
if (i+j>6) and (a[i,j] mod 2=0) then
k:=k+a[i,j];
write(a[i,j]:3);
end;
writeln;
end;
write('Результат '); writeln(k);
readln;
end.
Рассмотрим задачи, в которых требуется в качестве обработки
изменить порядок следования элементов в исходном массиве, например
удалить или переставить местами один или несколько элементов в
двумерном массиве.
При написании программы в этом случае можно записать элементы
двумерного массива размерностью NxM в одномерный массив с
количеством элементов N*M. Затем выполнить требуемые
действия сог-
ласно алгоритму для одномерного массива. Завершающей операцией будет
обратная запись одномерного массива на место двумерного.
Пример 7.22. Удаление в двумерном массиве элемента c номером X.
program ud_el;
const n=5;
m=10;
var a:array [1..N,1..M] of integer;
b:array[1..N*M] of integer;
x,i,j,k:byte;
begin
k:=1;
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
b[k]:=a[i,j]; { заполнение двумерного массива и запись }
k:=k+1; { его в одномерный }
end;
{ Удаление некоторого элемента с номером x}
for i:=x to n*m–1 do b[i]:=b[i+1];
b[n*m]:=0;
k:=1;
for i:=1 to n do

Страницы