Question

Решение в паскале

Массив 5х10 заполнить случайными числами [0;10]. Найти строку, в которой сумма элементов максимальна и заменить в этой строке все числа на 0.

Answer 1

const g=5;v=10;

var i,j,s,m,mi:integer;

a:array [1..g,1..v] of integer;

begin

for i:=1 to g do

begin

for j:=1 to v do

begin

a[i,j]:=random(11);

if i=1 then s:=s+a[i,j];

write (a[i,j]:3)

end;

writeln

end;

writeln;

writeln;

m:=s;

mi:=1;

for i:=1 to g do

begin

s:=0;

for j:=1 to v do s:=s+a[i,j];

if s>m then

begin

m:=s;

mi:=i

end

end;

for i:=1 to g do

begin

for j:=1 to v do

begin

if i=mi then a[i,j]:=0;

write (a[i,j]:3)

end;

writeln

end;

end.