Двумерный массив Delphi

[MrMorozko]

Всем привет...прошу решить мне задачку т.к. я не могу совладать с этими двумерными массивами

Дан двумерный массив размером n*m заполненый случайными числами. Найти в каждой строке массива максимальный и минимальный элементы и поменять их с первым и последним элементом соответственно.

2. Заполнить массив 7*7 по правилу:

1111111
0111110
0011100
0001000
0011100
0111110
1111111

Заранее вам спасибо....при решении задачи прошу подписать важные строки алгоритма с обьясненим

[MrMorozko]

procedure TForm1.Button1Click(Sender: TObject);
var
i, j, n, m, min, max, i_min, j_max, sum : integer;
a : array [0..50, 0..50] of integer;
begin
n := StrToInt(Edit1.Text);
m := StrToInt(Edit2.Text);
min := 999999;
max := 0;
Memo1.Lines.Clear;
i_min := 0;
j_max := 0;
for i := 0 to n - 1 do
begin
sum := 0;
 for j := 0 to m - 1 do
  begin
   a[i,j] := Random(35);
   sum := sum + a[i,j];
   if sum < min then
   begin
    min := sum;
    i_min := i;
   end;
   StringGrid1.Cells[i,j]:= IntToStr(a[i,j]);
  end;
end;
Memo1.Lines.Add('Столбец min: ' + IntToStr(i_min +1));
for j := 0 to m - 1 do
begin
sum := 0;
 for i := 0 to n - 1 do
  begin
   sum := sum + a[i,j];
   if sum > max then
    begin
     max := sum;
     j_max := j;
    end;
  end;
end;
Memo1.Lines.Add('Строка max: ' + IntToStr(j_max+1));
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
StringGrid1.ColCount := StrToInt(Edit1.Text)
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
StringGrid1.RowCount := StrToInt(Edit2.Text)
end;

Данная задача похожа на 1ую можно переделать...^_^

procedure TForm1.Edit1Change(Sender: TObject);
begin
StringGrid1.ColCount := StrToInt(Edit1.Text);
StringGrid1.RowCount := StrToInt(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,j, n : integer;
a : array [0..50, 0..50] of integer;
begin
n := StrToInt(Edit1.Text);
for i := 0 to n - 1 do
 for j := 0 to n - 1 do
  begin
   a[i,j] := 0;
   if (i = n-j-1) or (i=j) then
    a[i,j] := 1;
   StringGrid1.Cells[i,j] := IntToStr(a[i,j]);
  end;
end;

Пример второй

[Niro]

Писал не проверяя, и просто для паскаля, а не для дельфи, так что переделаете сами

for i:=1 to n do
begin
 max:=mas[i,1];
 min:=mas[i,1];
  for j:=1 to m do
   begin
    if mas[i,j]>max then begin 
                                   max:=mas[i,j]; 
                                   i1:=i; 
                                   j1:=j; 
                                end;
    if mas[i,j]<min then begin 
                                   min:=mas[i,j]; 
                                   i2:=i; 
                                   j2:=j; 
                               end;
   end;
mas[i1,j1]:=min;
mas[i2,j2]:=max;
end;

[Stilet]

MrMorozko

Так а в чем сложности? Код есть - проверяй.

[GOLDENdeagle]

Дан двумерный массив 10х10,заполненный вручную, введенный в StringGrid.Найти макс и мин значения и вывести их в ListBox.

Помогите плз парюсь не могу решить

[Валерий_2106]

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

[Alex11223]

Проблема-то в чем? Как помочь? Или вы просите решить за вас, а не помочь? Попробуйте сделать что-то сами, покажите код, расскажите, что не получается. Ну или решу задачу за небольшое вознаграждение вебмани или ЯД, контакты в подписи.

[Op1nG.Spark]

помогите ахахах
задания тупо скинул хДДД
ваще молорик

[Aselya/]

Найти количество простых чисел в строках двумерного массива

[ZX Spectrum-128]

Сообщение от Aselya/

Найти количество простых чисел в строках двумерного массива

Это как?
1-я - 3 простых
2-я - 0 простых
...
И так далее
???