2 задачи - на массив и на матрицу... вызывает затруднение способ их решения.

[liker_47]

№1 тект задачки: Матрица А состоит из 7 строк и 9 столбцов. Найти максимальный элемент и обнулить строку и столбец, на пересечении которых он находится.

№2 текст задачки: Массив B состоит из 25 элементов. Получить новый массив, в котором элементы массива будут располагаться следующим образом: B1, B13, B2, B14,..., B12, B24.

[Sazary]

Первая:

uses crt;

var
A : array[1..7,1..9] of integer;
i,j,ni,nj,max : integer;

begin
clrscr;
randomize;
for i:=1 to 7 do
 begin
 for j:=1 to 9 do
  begin
  A[i,j] := random(100);
  write(A[i,j]:5);
  end;
 writeln;
 end;
writeln;
{----}
max := A[1,1];
ni := 1; nj := 1;
for i:=1 to 7 do
 for j:=1 to 9 do
  if A[i,j]>max then
               begin
               max := A[i,j];
               ni := i;
               nj := j;
               end;
{---}
for i:=1 to 7 do
  A[i,nj] :=0;
for j:=1 to 9 do
  A[ni,j] :=0;

{vyvod novoj matritsy}
for i:=1 to 7 do
 begin
 for j:=1 to 9 do
  write(A[i,j]:5);
 writeln;
 end;
readln;
end.

[alex_fcsm]

uses crt;
const m=7;
      n=9;
var a:array[1..m,1..n] of integer;
    i,j,l,r:integer;
begin
 clrscr;
 randomize;
 for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
   end;
   writeln;
 end;
 writeln('========================================================');
 l:=1;r:=1;
 for i:=1 to m do
  for j:=1 to n do
   if a[i,j]>a[l,r] then begin
                          l:=i;
                          r:=j;
                         end;
                         
  for i:=1 to m do
   if i<>l then a[i,r]:=0;
  for i:=1 to n do
   if i<>r then a[l,i]:=0;
 for i:=1 to m do
 begin
  for j:=1 to n do
    write(a[i,j]:3);
   writeln;
 end;
end.

Сорри Sazari уже написал

[Sazary]

Вторая:

uses crt;

var
B,C : array[1..25] of integer;
i,j : integer;

begin
clrscr;
randomize;
for i:=1 to 25 do
 begin
 B[i] := random(100);
 write(B[i]:4);
 end;
writeln;
writeln;
{---}
j:=1;
for i:=1 to 12 do
 begin
 C[j] := B[i];
 C[j+1] := B[i+12];
 j := j + 2;
 end;

for i:=1 to 24 do
 write(C[i]:4);


readln;
end.

Вопрос: а что же делать с несчастным элементом B25? ))

alex_fcsm Немного не успели )

[liker_47]

Огромное вам спасибо!

С элементом B25 ничё делать не надо, просто это кол-во элементов в массиве!

[alex_fcsm]

Сообщение от Sazary

alex_fcsm Немного не успели )

В моей программе макс я не стал удалять