Паскаль

[ффффф]

В двумерном массиве найти сумму максимального и минимального элементов,если она меньше нуля,тогда все отрицательные элементы матрицы, лежащие выше главной диагонали,заменить на нули.

[ROMA2PVT]

Program mas;
var
a:array[1..100,1..100] of integer;
i,j,maxi,maxj,mini,minj,n,m,max,min,sum:integer;
begin
Write('Введите количество строк:');
readln(n);
Write('Введите количество столбцов:');
readln(m);
writeln('Исходный массив: ');
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(10)-5;
Write(a[i,j]:3);
end;
writeln;
end;
writeln;
max:=a[1,1];
min:=a[1,1];
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:=1 to n do
for j:=1 to m do
begin
if max<a[i,j] then
begin
max:=a[i,j];
maxi:=i;
maxj:=j;
end;
if min>a[i,j] then
begin
min:=a[i,j];
mini:=i;
minj:=j;
end;
end;
sum:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
sum:=max+min;
end;
end;
writeln('MIN = A[',mini,';',minj,']=',min);
writeln('MAX = A[',maxi,';',maxj,']=',max);
writeln(sum);
if sum<0 then
for i:=1 to n do
for j:=i to m do
if i<j then
begin
if a[i,j]<0 then
a[i,j]:=0;
end;
for i:=1 to n do
begin
for j:=1 to m do
begin
Write(a[i,j]:3);
end;
writeln;
end;
Writeln;
end.

Вроди верно.Всётаки ошибся.

[Александриус]

Program mas;
var
   a:array[1..100,1..100] of integer;
   i,j,maxi,maxj,mini,minj,n,m,max,min,sum:integer;
begin
Write('Введите количество строк:');readln(n);
Write('Введите количество столбцов:');readln(m);
writeln('Исходный массив: ');
{заполняем массив случайно и выводим }
randomize;
for i:=1 to n do begin
 for j:=1 to m do begin
     a[i,j]:=random(10)-5;Write(a[i,j]:3);end;writeln;end;
writeln;
{находим максимальным и маинимальный элементы}
max:=a[1,1];min:=a[1,1];
maxi:=1;maxj:=1;mini:=1;minj:=1;
for i:=1 to n do for j:=1 to m do begin
 if max<a[i,j] then begin max:=a[i,j];maxi:=i;maxj:=j;end;
 if min>a[i,j] then beginmin:=a[i,j];mini:=i;minj:=j;end;end;
{суммируем максимальные и минимальные}
sum:=0;
for i:=1 to n do begin for j:=1 to m do begin sum:=max+min;end;end;
{выводим максимальные и минимальные}
writeln('MIN = A[',mini,';',minj,']=',min);
writeln('MAX = A[',maxi,';',maxj,']=',max);
writeln(sum);
{меняем местами элементы}
if sum<0 then
 for i:=1 to n do for j:=i to m do
 if i<j then begin if a[i,j]<0 then a[i,j]:=0; end;
{выводим результат}
for i:=1 to n do begin for j:=1 to m do begin Write(a[i,j]:3); end;writeln;end;
Writeln;
end.

[ROMA2PVT]

И в чём прикол?Скопировать код выше и подписать коментарии?

[newlife]

спасибо,ребята..

[RUSt88]

а я чо неправильно сделал?

[ROMA2PVT]

а я чо неправильно сделал?

Любят некоторые по десять раз спрашивать.

[RUSt88]

ROMA2PVT
я сделал эту задачу, когда ты о ней даже не думал

по 10 раз я не спрашивал и вопрос был не к тебе, а к аффтору поста, не лезь вперед коней

[ROMA2PVT]

по 10 раз я не спрашивал и вопрос был не к тебе, а к аффтору поста, не лезь вперед коней

Э! я про неё и говорю.Раз она у тебя сначала спросила а потом снова на форуме.Чё сразу грубить то.