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

[SiNiSTeR19]

program prog;
var i, j, n, m_i, m_j: byte;
    A: array[1..100,1..100] of Real;
    maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
for i:=1 to n do
    for j:=1 to n do
        A[i,j]:=-100+random(200);
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
 for j:=1 to n do
  if abs(A[i,j])>maxmod then
  begin
  maxmod:=abs(A[i,j]);
  m_i:=i; m_j:=j;
  end;
writeln('Исходная матрица:');
for i:=1 to n do
begin
 for j:=1 to n do write(A[i,j]:6:1);
 writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
for i:=1 to n do
 if (i<>m_i) then
 begin
 for j:=1 to n do
   if (j<>m_j) then write(A[i,j]:6:1);
 writeln;
 end;
readln;
end.

[Аватар]

Юморишь? У тебя на хинди, что-ли?

[Вадим Мошев]

SiNiSTeR19
У вас уже записано на нём.

[Stilet]

Наверное имеется ввиду псевдокод. Т.е. типа "па-русски".