В матрице b в каждой строке максимальные и минимальные элементы заменить 0

@Agent 056 · Регистрация: 24.09.2010

Author24 — интернет-сервис помощи студентам

В матрице b в каждой строке макс. и мин. элементы заменить 0.

@krvnk · 24.09.2010, 18:21

Pascal

uses crt;
var a:array[1..100,1..100] of integer;i,j,k,t,n:integer;
begin clrscr;writeln('vvedite n'); randomize; readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(50)-25;write(a[i,j]:5);end;
writeln;end;
for i:=1 to n do begin k:=1;t:=1;
    for j:=2 to n do
    if a[i,k]<a[i,j] then k:=j;
    a[i,k]:=0;
    for j:=2 to n do
    if a[i,t]>a[i,j] then t:=j;
    a[i,t]:=0;
    end;
for i:=1 to n do begin
for j:=1 to n do begin
write(a[i,j]:4);end;writeln;end;
end.

правда если будут >2 максимальных то на 0 поменяется только одно(или >2 минимальных)

@xNum3n · 09.11.2010, 00:40

Agent 056, Вы наверно FAQ не так поняли

@Agent 056 0 / 0 / 0 Регистрация: 24.09.2010 Сообщений: 5
		1
	В матрице b в каждой строке максимальные и минимальные элементы заменить 0 24.09.2010, 17:19. Показов 1248. Ответов 2 Метки нет (Все метки) В матрице b в каждой строке макс. и мин. элементы заменить 0. 0

@xNum3n 15 / 15 / 5 Регистрация: 07.11.2010 Сообщений: 57
	09.11.2010, 00:40	3
	Agent 056, Вы наверно FAQ не так поняли 0

Опции темы

В матрице b в каждой строке максимальные и минимальные элементы заменить 0

Решение