одномерные и двумерные массивы

[Алекс К.]

1. Произвольно заданы 3 одномерных массива с одинаковым числом элементов. Сформировать массив, каждый элемент которого является максимальным элементом соответственно в каждом из 3-х исходных массивах. Определить местоположение максимального и минимального элементов в формированном массиве.

2. Определить максимальный элемент в произвольно заданной матрице размером 4*6 и заменить на это минимальное значение элементы строки и столбца, которым принадлежит найденное значение.

Пожайлуста, помогите решить

[Лунатик222]

Сообщение от Алекс К.

1. Произвольно заданы 3 одномерных массива с одинаковым числом элементов. Сформировать массив, каждый элемент которого является максимальным элементом соответственно в каждом из 3-х исходных массивах. Определить местоположение максимального и минимального элементов в формированном массиве.

2. Определить максимальный элемент в произвольно заданной матрице размером 4*6 и заменить на это минимальное значение элементы строки и столбца, которым принадлежит найденное значение.

Пожайлуста, помогите решить

program AlexK;
uses crt;
var mass,mass2,mass3,arr:array[1..5] of integer;
    i,j,max,min:integer;
begin
clrscr;
randomize;
writeln('first array');
writeln;
max:=1; min:=1;
 for i:=1 to 5 do
  begin
   mass[i]:=random(10);
   write(mass[i], ' ');
   if mass[i]>mass[max] then max:=i;
  end;
arr[1]:=mass[max];
writeln;
writeln;
writeln('max member of the first array is', ' ', mass[max]);
writeln;
writeln('-----------------------------');
writeln('second array');
writeln;
max:=1; min:=1;
 for i:=1 to 5 do
  begin
   mass2[i]:=random(10);
   write(mass2[i], ' ');
   if mass2[i]>mass2[max] then max:=i;
  end;
arr[2]:=mass2[max];
writeln;
writeln;
writeln('max member of the second array is', ' ', mass2[max]);
writeln;
writeln('-----------------------------');
writeln('third array');
writeln;
max:=1; min:=1;
 for i:=1 to 5 do
  begin
   mass3[i]:=random(10);
   write(mass3[i], ' ');
   if mass3[i]>mass3[max] then max:=i;
  end;
arr[3]:=mass3[max];
writeln;
writeln;
writeln('max member of the third array is', ' ', mass3[max]);
writeln;
writeln('-----------------------------');
writeln('final array');
writeln;
max:=1; min:=1;
 for i:=1 to 3 do
  begin
   write(arr[i], ' ');
   if arr[i]>arr[max] then max:=i
    else if arr[i]<arr[min] then min:=i;
   end;
writeln;
writeln;
writeln('the number of max is', ' ', max);
writeln;
writeln('the number of min is', ' ', min);
readln;
end.

[Commander-in-Chief]

Сообщение от Алекс К.

2. Определить максимальный элемент в произвольно заданной матрице размером 4*6 и заменить на это минимальное значение элементы строки и столбца, которым принадлежит найденное значение.

Непонятно, максимальное или минимальное значение. Писал для максималього.

program Commander;
  const
    Nmax=4;
    Mmax=6;
  var
    A:array[1..Nmax,1..Mmax] of real;
    i,j,imax,jmax:byte;
    max:real;
  begin
    for i:=1 to Nmax do
      for j:=1 to Mmax do
        begin
          write('A[',i,',',j,']=');
          readln(A[i,j])
        end;
    max:=A[1,1];
    imax:=1;
    jmax:=1;
    for i:=1 to Nmax do
      for j:=1 to Mmax do
        if A[i,j]>max then
          begin
            max:=A[i,j];
            imax:=i;
            jmax:=j;
          end;
    for i:=1 to Nmax do
      A[i,jmax]:=max;
    for j:=1 to Mmax do
      A[imax,j]:=max;
    for i:=1 to Nmax do
      begin
        for j:=1 to Mmax do
          write(A[i,j],' ');
        writeln
      end
  end.

[Алекс К.]

Спасибо за помощь