Помогите пожалуйста решить две задачки - поиск минимального значения в векторе и поиск/перестановка положительных элементов в матрице

[Ruslan Rutkovsky]

Нужно решить две задачки:
1. Найти минимальные значения элементов двух векторов X и Y произвольной размерности. Поменять их местами.
2. Расположить первые 4 положительные элемента матрицы А размерности mXn по углам этой матрицы.

Заранее благодарен!

[Вадим Мошев]

Что у вас не получается? Показывайте, как пытались решить задачи

[Ruslan Rutkovsky]

Первая задачка поддалась:

uses
  SysUtils;
const n=5;
var
A:array [1..n] of integer;
B:array [1..n] of integer;
Amin,Bmin:integer;
i,Ax,Bx: integer;
begin
randomize;
writeln('Massiv A:');
     for i:=1 to n do
      Begin
      A[i]:=random(50);
      writeln('A[',i,'] = ',A[i]);
      End;
writeln('Massiv B:');
     for i:=1 to n do
      Begin
      B[i]:=random(50);
      writeln('B[',i,'] = ',B[i]);
      End;
Amin:=A[1];
Bmin:=B[1];
 For i:=2 to n Do
  Begin
  If  Amin>A[i] Then
   Begin
   Amin:=A[i]; Ax:=i;
   End;
  If  Bmin>B[i] Then
  Begin
   Bmin:=B[i]; Bx:=i;
   End;
End;
  write('MIN A[',Ax,'] = ',A[Ax],'; ');
  writeln('MIN B[',Bx,'] = ',B[Bx]);
  A[Ax]:=Bmin;
  B[Bx]:=Amin;
  
  writeln('New Massiv A:');
for i:=1 to n do
 writeln('A[',i,'] = ',A[i]);
 writeln('New Massiv B:');
for i:=1 to n do
 writeln('B[',i,'] = ',B[i]);
 readln;
End.

[digitalis]

Ну дык какая же это произвольная размерность, если n=5 ? Динамический массив нужен.

[Serge_Bliznykov]

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

Динамический массив нужен.

точно. а ещё не реализована вторая часть задания:

Сообщение от Ruslan Rutkovsky

Поменять их местами.

[Aleksandr H.]

Сообщение от Ruslan Rutkovsky

Расположить первые 4 положительные элемента матрицы А размерности mXn по углам этой матрицы.

Program pr;
uses crt;
const n = 4; nn= 5;
var a:array [1..n,1..nn] of integer;
    mins:array[1..4]of integer;
    i,j:byte;
begin
randomize;
clrscr;
  mins[1]:=-1;mins[2]:=-1;mins[3]:=-1;mins[4]:=-1;
  for i:=1 to n do
   begin
    for j:=1 to nn do
     begin
       a[i,j]:=20;a[i,j]:=a[i,j]-random(50);
       write(a[i,j]:4);
       if a[i,j]>0 then
        begin
          if mins[1]=-1 then mins[1]:=a[i,j] else
          if mins[2]=-1 then mins[2]:=a[i,j] else
          if mins[3]=-1 then mins[3]:=a[i,j] else
          if mins[4]=-1 then mins[4]:=a[i,j];
        end;
     end;
    writeln;
   end;
  writeln;
  for i:=1 to 4 do write(mins[i]:4);
  writeln;
  a[1,1]:=mins[1];a[1,nn]:=mins[2];a[n,1]:=mins[3];a[n,nn]:=mins[4];
  writeln;
  for i:=1 to n do
  begin
   for j:=1 to nn do
    write(a[i,j]:4);
   writeln;
  end;
readln;
END.

[Plague]

2.

const n=4;
      m=5;
var a:array [1..n,1..m] of integer;
    b:array [0..3] of integer;
    i,j,t:integer;
begin
for i:=1 to n do
  begin
    for j:=1 to m do
      begin
        a[i,j]:=random(100)-50;
        write(a[i,j]:4);
        if (a[i,j]>0)and(t<4) then 
          begin
            b[t]:=a[i,j];
            t:=t+1;
          end;
      end;
    writeln;
  end;
writeln;

  if t=4 then
    for i:=0 to 3 do
      a[1+(n-1)*(i div 2) , 1+(m-1)*(i mod 2)] :=b[i]
  else writeln('Нет 4х положительных');

for i:=1 to n do
  begin
    for j:=1 to m do write(a[i,j]:4);
    writeln;
  end;
end.