Question

Se consideră tabloul A[1..n,1..n] de numere întregi unde n<=20. Să se scrie un program, cu ajutorul unui subprogram, care aduna la voloarea fiecarui element al tabloului initial valoarea elementului maxim de pe diagonala principala

Answer 1

Program Pn;
var
A:array[1..20,1..20] of integer;
n,i,j:integer;
function f(n:integer):integer;
var i,j,max:integer;
begin
max:=A[1,1];
for i:=1 to n do begin
for j:=1 to n do begin
if i=j then if max<A[i,j] then max:=A[i,j];
end;end;
Writeln('Dupa schimbare');
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=A[i,j]+max;
Writeln('A[',i,',',j,']=',A[i,j]);
end;end;
end;
begin
Writeln('Dati n');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
Writeln('A[',i,',',j,']=');readln(A[i,j]);
end;end;
f(n);
readln;
end.