👤
LOOZANECATERINEZ
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 :

FACEBOOKAUGUSTIEZ
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 că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari