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

@KingWorld · Регистрация: 12.05.2010

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

Дана матрица А(4х4). Заменить в каждой строке матрицы максимальный элемент на 0.

@STGE · 20.05.2010, 12:20

Pascal

for i:=1 to n do
begin
max:=a[i,1];
k:=1;
for j:=2 to n do
if a[i,j]>max then 
begin
max:=a[i,j];
k:=j;
end;
a[i,k]:=0;
end;

@KingWorld · 20.05.2010, 12:25 **[ТС]**

Сообщение от STGE

Pascal

for i:=1 to n do
begin
max:=a[i,1];
k:=1;
for j:=2 to n do
if a[i,j]>max then 
begin
max:=a[i,j];
k:=j;
end;
a[i,k]:=0;
end;

МОжешь полностью программу написать!? Буду очень рад) Заранее спасибо!

@STGE · 20.05.2010, 12:30

Pascal

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; i,j,k: byte; max: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(19)-9;
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
k:=1;
for j:=2 to n do
if a[i,j]>max then 
begin
max:=a[i,j];
k:=j;
end;
a[i,k]:=0;
end;
writeln('результат: ');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
end.

@KingWorld · 20.05.2010, 14:01 **[ТС]**

Спасибо очень помог!

@KingWorld 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 20
		1
	Заменить в каждой строке матрицы максимальный элемент на 0. 20.05.2010, 12:15. Показов 1466. Ответов 4 Метки нет (Все метки) Дана матрица А(4х4). Заменить в каждой строке матрицы максимальный элемент на 0. 0

@KingWorld 0 / 0 / 0 Регистрация: 12.05.2010 Сообщений: 20
	20.05.2010, 14:01 [ТС]	5
	Спасибо очень помог! 0

Опции темы