👤
LOOZANECATERINZE
a fost răspuns

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

Răspuns :

FACEBOOKAUGUSTIZE
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!


Ze Lesson: Alte intrebari