Задачи на языке pascal. Двумерные массивы и строки.

[Munich]

Задачи очень простые, но у меня вызывают трудность ввиду моей безграмотности
Буду оочень признателен! На кону зачет!D:<

Двумерные массивы:
1) Ввести массив A[5,5], и в каждом столбце найти минимальный элемент.
2) Дана матрица A[5,5]. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший элемент.

Строки:
1) Ввести два слова одинаковой длины и составить третье слово так: сперва берется первая буква первого слова, затем первая буква второго слова, затем вторая буква первого слова, затем вторая буква второго слова и т.д.
2) Ввести число и поменять местами вторую и пятую цифры этого числа.
3) Ввести фразу и перевернуть каждое слово этой фразы.

[Munich]

В первой задаче не могу сделать так, чтобы все минимальные в столбцах находились с одного захода. получается что-то вроде этого:

a[1,1]:=min1;
for i:=2 to 5 do if a[i,1]<min1 then a[i,1]:=min1;
a[1,2]:=min2;
for i:=2 to 5 do if a[i,2]<min2 then a[i,2]:=min2;
...
a[1,5]:=min5;
for i:=2 to 5 do if a[i,5]<min5 then a[i,5]:=min5;
writeln(min1, min2, min3, min4, min5,' - minimalnie elementi v stolbcah');
end.

Во второй задаче я, конечно, могу найти наиб. элемент:
a[1,1]:=max;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]>max then a[i,j]:=max;
Но как разделить все элементы матрицы на max и вывести полученную матрицу?

А со строковыми типами я совсем не разобрался D:

[Hacker19_90]

Строки:
1)

Readln (str1);
Readln (str2);
for i := 1 to length (str1) do
    write (str1[i], str2[i]);

2) Метод решения через строку

Readln (chislo);
str(chislo, str_chislo);
temp := str_chislo[2];
str_chislo[2] := str_chislo[5];
str_chislo[5] := temp;
Val (str_chislo, chislo, 0);
writeln (chislo);

[Munich]

Благодарствую!

[Hacker19_90]

чтобы все минимальные в столбцах находились с одного захода.

А если так

for j := 1 to 5 do
begin
    min := a[1,j];
    for i := 2 to 5 do
    begin
        if min > a[i,j] then min := a[i,j];
    end;
    writeln ('В ' j, '-том столбце минимальный элемент равен ', min);
end

[Munich]

возможно..
щас проверим

[k0tone]

Поиск минимальных элементов через один цикл:

program test;
uses crt;
const n=5;
var a:array [1..n, 1..n] of integer;
    i,j,min:integer;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=random(21)-10;
        write(a[i,j]:4);
      end;
    writeln;
  end;
writeln;
for i:=1 to n do
  begin
    min:=a[1,i];
    for j:=2 to n do
      if min>a[j,i] then min:=a[j,i];
    write(min:4);
  end;
readln;
end.

[Hacker19_90]

как разделить все элементы матрицы на max и вывести полученную матрицу?

Ну если матрица типа real, то можно и так

for i := 1 to 5 do
begin
    for j := 1 to 5 do
    begin
        NewA[i,j] := a[i,j]/max;
        Write (NewA[i,j]:4:3);
    end;
    writeln;
end;

[Munich]

Спасибо! Работает :DD

[k0tone]

Дана матрица A[5,5]. Получить новую матрицу путем деления всех элементов данной матрицы на ее наибольший элемент.

program test;
uses crt;
const n=5;
var a:array [1..n, 1..n] of real;
    i,j,k,l:integer;
    max:real;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=i-j;
        write(a[i,j]:9:2);
      end;
    writeln;
  end;
writeln;
max:=a[1,1];
for i:=1 to n do
  begin
    for j:=1 to n do
      if max<a[i,j] then
        begin
          max:=a[i,j];
          k:=i;
          l:=j;
        end;
  end;
write(max:9:2);
writeln;
writeln;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=a[i,j]/a[k,l];
        write(a[i,j]:9:2);
      end;
    writeln;
  end;
readln;
end.