Citire si afisare
Se citesc de la tastatura elementele reale ale unei matrici cu n linii si m coloane. Sa se afiseze matricea.
var a:array[1..100,1..100]of real;
n,m,i,j:byte;
begin {citime datele de intrare: numarul de linii, numarul de coloane si elementele matricii}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
{afisam elementele matricii}
for i:=1 to n do begin {afisam o line}
for j:=1 to m do
write(a[i,j]:5:2,' ');
writeln; {trecem la linie noua pentru a da forma de matrice datelor afisate}
end;
end.
Se citesc de la tastatura elementele reale ale unei matrici cu n linii si m coloane. Sa se afiseze transpusa matricii.
var a:array[1..100,1..100]of real;
n,m,i,j:byte;
begin
{citirea datelor de intrare}
write('numarul de linii=');readln(n);
write('numarul de coloane=');readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
{afisarea transpusei}
for j:=1 to m do begin
for i:=1 to n do
write(a[i,j]:5:2,' ');
writeln;
end;
end.