Se dă un tablou bidimensional cu n elemente întregi.
Se cere:
Să se ordoneze crescător tabloul
Programare în limbaj pascal.
Mulțumesc!
Răspunsuri la întrebare
Răspuns:
program sumaProdus;
const nmax=30;
type Matrice = array[1..nmax, 1..nmax] of integer;
var a: Matrice;
n, suma, produs, i, j, contor: integer;
media:real;
begin
write('n='); read(n);
writeln(' introdu componentele matricei: ');
for i:=1 to n do
for j:=1 to n do
read(a[i,j]);
suma:=0; produs:=1;
for i:=1 to n do
for j:=1 to n do
begin
if i>j then begin suma:=suma+a[i,j]; inc(contor); end;
if i<j then produs:=produs*a[i,j];
end;
media := suma/contor;
writeln('media=', media:0:2);
writeln('produs=', produs);
end.
sper ca te-am ajutat cu ceva :)
Explicație:
Răspuns:
program ordonareLinie;
var t: array[1..20,1..20]of integer;
n, i, j, L, aux:integer;
begin
write('Dati dimensiunea tabloului: '); read(n);
writeln('introdu ',n*n,' elemente ale tabloului bidimensional ');
for i:=1 to n do
begin
for j:=1 to n do
begin
write('t[',i,',',j,']='); read(t[i,j]);
end;
end;
writeln('Tabloul introdus:');
for i:=1 to n do
begin
for j:=1 to n do
write(t[i,j]:4);
writeln;
end;
writeln('Ce linie vrei sa ordonezi? '); read(L);
for i:=1 to n-1 do
begin
for j:=i+1 to n do
begin
if t[L,j]<t[L,i] then
begin aux:=t[L,i]; t[L,i]:=t[L,j]; t[L,j]:=aux; end;
end;
end;
writeln('Tabloul modificat cu linia ',L,' ordonata crescator');
for i:=1 to n do
begin
for j:=1 to n do
write(t[i,j]:4);
writeln;
end;
end.
Explicație:
nu cred că la teză să-ţi trebuiască tot programul... e prea mare pentru teză... poate ceva din el...