Помогите решить задачи

[modulrev]

1.Имеется матрица 20х30.Найти минимальный и максимальный элемент в каждом столбце
2.Имеется массив целых чисел.Найти кол-во четных,положительных,кратных 3,найти сумму всех элементов,мин и макс.
Заранее спасибо

[NieL]

  M: array [0..2, 0..2] of Integer =
    (
     ((1), (2), (3)),
     ((6), (5), (4)),
     ((8), (7), (9))
    );

procedure Tform_Test.Button1Click(Sender: TObject);
var
  i, j, Max, Min: Integer;
begin
  for i := 0 to 2 do
  begin
    Max := M[i, 0];
    Min := M[i, 0];
    for j := 0 to 2 do
    begin
      if M[i, j] > Max then Max := M[i, j];
      if M[i, j] < Min then Min := M[i, j];
    end;
    ShowMessageFmt('%d-я строка'#13#10'Max: %d'#13#10'Min: %d', [i, Max, Min]);
  end;
end;

ой перепутал. Это в каждой строке. А вот в каждом столбце

procedure Tform_Test.Button1Click(Sender: TObject);
var
  i, j, Max, Min: Integer;
begin
  for i := 0 to 2 do
  begin
    Max := M[0, i];
    Min := M[0, i];
    for j := 0 to 2 do
    begin
      if M[j, i] > Max then Max := M[j, i];
      if M[j, i] < Min then Min := M[j, i];
    end;
    ShowMessageFmt('%d-й столбец'#13#10'Max: %d'#13#10'Min: %d', [i, Max, Min]);
  end;
end;

[Sazary]

Вторая задача:

uses crt;
const N=10;
var
mass : array[1..N] of integer;
i,chet,polozh,krat,sum,min,max : integer;

begin
clrscr;
{Заполнение массива случайными числами}
randomize;
for i:=1 to N do
 begin
 mass[i] := random(100)-30;
 write(mass[i]:5);
 end;
writeln;
{------------------}
chet := 0;
polozh := 0;
krat := 0;
sum := 0;
min := mass[1];
max := mass[1];
for i:=1 to N do
 begin
 if mass[i] mod 2 = 0 then inc(chet);
 if mass[i] > 0 then inc(polozh);
 if mass[i] mod 3 = 0 then inc(krat);
 sum := sum + mass[i];
 if min>mass[i] then min := mass[i];
 if max<mass[i] then max := mass[i];
 end;
writeln;
writeln('Kol-vo chetnyh el-v= ',chet);
writeln('Kol-vo polozhitelnyh el-v= ',polozh);
writeln('Kol-vo el-v kratnyh 3= ',krat);
writeln('Summa el-v= ',sum);
writeln('Minimum= ',min);
writeln('Maximum= ',max);

readln;
end.

[puporev]

To Niel
Посмотрите внимательно на свое творение и скажите, чем у Вас поиск в строках отличается от поиска в столбцах кроме сообщения?

[modulrev]

Огромное спасибо за помощь
1 задача у меня не работает
А вот Sazary отдельное спасибо
Помогите с первой пожалуйста

[Sazary]

Первая задача:
Саму матрицу на экран не вывожу - слишком большая.
Для проверки можно уменьшить значения n и m и раскомментить writeln'ы.

uses crt;
const n=20; m=30;
var
matr : array[1..n,1..m] of integer;
minmax : array[1..m,1..2] of integer;
i,j,mini,minj,maxi,maxj : integer;
begin
clrscr;
{заполнение матрицы}
randomize;
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  matr[i,j] := random(50)-10;
 { write(matr[i,j]:4); }  {выводить бесполезно - не влезет на экран ))}
  end;
{ writeln;  }
 end;
{ writeln;  }
{ writeln;    }
{----------}
for j:=1 to m do
 begin
  mini := 1; minj := 1;
  maxi := 1; maxj := 1;
  for i:=1 to n do
   begin
   if matr[i,j]<matr[mini,minj] then begin
                                     mini := i;
                                     minj := j;
                                     end;
   if matr[i,j]>matr[maxi,maxj] then begin
                                     maxi := i;
                                     maxj := j;
                                     end;
   end;
 minmax[j,1] := matr[mini,minj];
 minmax[j,2] := matr[maxi,maxj];
 end;

{вывод минимумов}
writeln('Min:');
for j:=1 to m do
 write(minmax[j,1]:4);
{вывод максимумов}
writeln;
writeln('max:');
for j:=1 to m do
 write(minmax[j,2]:4);
readln;
end.

[modulrev]

Ещё раз большо:е спасибо

[Jora_Kornev]

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

To Niel
Посмотрите внимательно на свое творение и скажите, чем у Вас поиск в строках отличается от поиска в столбцах кроме сообщения?

В строках

    begin
      if M[i, j] > Max then Max := M[i, j];
      if M[i, j] < Min then Min := M[i, j];
    end;

В столбцах

    begin
      if M[j, i] > Max then Max := M[j, i];
      if M[j, i] < Min then Min := M[j, i];
    end;

[RomT24]

Первую задачу на мой взгляд, можно решить проще:
program matrix;
uses Crt;
var
arr:array[1..5] of array[1..5] of integer;
i,j,max,min,k:integer;
begin
clrscr;
k:=1;
for i:=1 to 5 do
for j:=1 to 5 do {Заводим числа в матрицу от 1 до n*m}
begin
arr[i][j]:=k;
Inc(k);
end;

for i:=1 to 5 do
begin
for j:=1 to 5 do
write(arr[i][j]:4); {Выводим на экран матрицу}
writeln;
end;

writeln;

for j:=1 to 5 do
begin
min:=arr[1][j];
max:=arr[1][j];
for i:=1 to 5 do
begin
if arr[i][j]<min then min := arr[i][j];
if arr[i][j]>max then max := arr[i][j];
end;
writeln('Максимальный и минимальный элемент ',j,'-ого столбца: ');
writeln(max,', ',min);
end;
end.
числа можешь подставить свои, но матрица действительно не входит на экран)