Матрицы (Delphi)

[Darkstar]

задача №1: ==В вести квдратную матрицу целых чисел, в каждой строке найти максимальный среди положительных элементов и заменить его суммой предшествующих.==
задача №2: ==Ввести квадратную матрицу целых чисел, в каждом элементе исходной матрицы поменять местами первую и последнюю цифру, в котрой найти максимальный элемент и заменить его суммой элементов исходной матрицы.==

ПЛИЗ ПОМОГИТЕ мне просто это очень тяжелодается((

[Darkstar]

ну пожалуйсто помогите((

[MalexG]

Задача №1.

const
  N    = 10;    // Размерность массива
  Nmax = 200;   
var
  i, j: byte;
  ind: byte;
  Max, Sum: integer;
  Arr: array[0..N-1, 0..N-1] of integer;
begin
  // Инициализация генератора случ. чисел
  Randomize;
  // Заполнение массива
  for i := 0 to N-1 do
    for j := 0 to N-1 do
      Arr[i, j] := Random(Nmax) - 100;
  
  for i := 0 to N-1 do
  begin
    Max := 0;
    Sum := 0;
    ind := -1;
    for j := 0 to N-1 do
    begin
      Sum := Sum + Arr[i, j];       // Подсчет суммы для строки
      // Если очередной элемент более мах положительного
      if Arr[i, j] > Max then
      begin
        Max := Arr[i, j];  // Нов мах положит элем
        ind := j;          // Индекс вхождения элем
      end;
      // если был найден мах положит элемент, заменяем его на сумму всех предшевств. элем
      if Ind <> -1 then
        Arr[i, ind] := Sum;   
    end;
  end;
end.

[Said]

сейчас подумаю )))

[Said]

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


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
var
A:array [1..100,1..100] of Integer;
S:string[10];
b:char;
sum,max,imax,jmax, g,code,j,x,i,d,n:Integer;
begin
Writeln(' Input N');
readln(n);
Writeln('Input elements of array');
for i:=1 to n do
begin
for j:=1 to n do
read(A[i,j]);
readln;
end;

for i:=1 to n do
begin
for j:=1 to n do
begin
X:=A[i,j];
str(x,S);
g:=length(s);
b:=S[1];
S[1]:=S[g];
S[g]:=b;
Val(S,d,code);
A[i,j]:=d;
end;
end;

Writeln('pomenyali mesta perviy s poslednoy sifroy');
for i:=1 to n do
begin
for j:=1 to n do
Write(A[i,j]:7);
writeln;
end;

Sum:=0;
for i:=1 to n do
begin
for j:=1 to n do
Sum:=Sum+A[i,j];
end;

max:=A[1,1];
for I:=1 to N do
begin
for j:=1 to N do
if A[i,j]>max then
begin
max:=A[i,j];
imax:=i;
jmax:=j;
end;
end;

for i:=1 to n do
begin
for j:=1 to n do
if A[i,j]=max then
A[i,j]:=sum;
end;

WriteLn('pomenyali maksimalniy element s summoy ....');
for i:=1 to N do
begin
for j:=1 to N do
Write (A[i,j]:7);
Writeln;
end;

readln;

end.

[Darkstar]

всем огромное способо))))!!!!

[Darkstar]

первая задача почему то не работает(((