Question

(PASCAL) Se consideră tabloul unidimensional T[1..n] cu elemente de tip String. Să se compună un program care va rearanja caractere fiecărui element al vectorului T în ordine invers alfabetică prin metoda selecţiei. Tabloul modificat se va afişa pe ecran.

Answer 1

Program P1;
var
T:array[1..100] of string;
j,i,n,s:integer; aux:string;
begin
Writeln('Marimea vectorului:');
readln(n);
for i:=1 to n do
begin
Write('T[',i,']=');readln(T[i]);
end;
for i:=1 to n-1 do
for j:=1+1 to n do
if T[i]>T[j] then
begin
aux:=T[i];
T[i]:=T[j];
T[j]:=aux;
end;
for i:=1 to n do
begin
Write('T[',i,']=');Writeln(T[i]);
end;
readln;
end.