Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  mathites
Language: PASCAL
Code:
program mathites;
var
onoma:array [1..5] of string;
vathm:array [1..5] of integer;
i,j,temp2:integer;
temp1:string;
begin
for i:=1 to 5 do
begin
writeln('DOSE ANAMA KAI VATHMO MATHITI');
read(onoma[i]);
readln(vathm[i]);
end;
For i:=2 to 5 do
for j:=5 downto i do 
if vathm [j-1]<vathm[j] then
begin
temp1:=onoma[j-1];
onoma[j-1]:=onoma[j];
onoma[j]:=temp1;
for i:=1 to 5 do
begin
write(onoma[i]);
writeln(vathm[i]);
end
end.
          
          
          
          
          
          
          
          
Comments: