вот тебе от меня мой личный код pascal у меня было это задание и аж 2 петёрки поставили а вот и код:
Код Pascal123456789101112131415161718192021222324252627 type mass=array[1..50]ofstring; var a:mass; i,j,n:integer;beginwrite('Введите кол-во фамилий: '); readln(n);for i:=1to n dobeginwrite('Введите',i,'-ую фамилию: ');readln(a[i]);end; writeln('Несортированный список:');writeln; for i:=1to n dowriteln(a[i]); for j:=1to n dofor i:=1to n doiford(a[j][1])<ord(a[i][1])then swap(a[i],a[j]); writeln; for i:=1to n dowriteln(a[i]);end.
Answers & Comments
вот тебе от меня мой личный код pascal у меня было это задание и аж 2 петёрки поставили а вот и код:
Код Pascal123456789101112131415161718192021222324252627 type mass=array[1..50] of string; var a:mass; i,j,n:integer;beginwrite('Введите кол-во фамилий: '); readln(n);for i:=1 to n dobegin write('Введите',i,'-ую фамилию: ');readln(a[i]);end; writeln('Несортированный список:');writeln; for i:=1 to n dowriteln(a[i]); for j:=1 to n dofor i:=1 to n doif ord(a[j][1])<ord(a[i][1]) then swap(a[i],a[j]); writeln; for i:=1 to n dowriteln(a[i]);end.