معدل 10 دانشجو را دریافت شاگرد اول تا سوم همراه با مکان آ نها در آرایه نمایش دهد.

پاسخ :

ابتدا سه آرایه تعریف می کنیم .آرایه 10 خانه ای a معدل دانشجو یان را در بر دارد .

آرایه 3 خانه ای b مکان شاگرد اول تا سوم را در خود ذخیره می کند.

آرایه 3 خانه ای c شاگرد اول تا سوم را در خود نگهداری می کند.

Program tamrin;

Var

a:array [1..10] of real;

b: array [1..3] of byte;

c:array [1..3] of real;

i,n:integer;

Max:real;

S:char;

Begin

Writeln(‘وارد کنید نمرات 10 دانشجو را؟”);

For i:=1 to 10 do

 Begin

  Write(‘enter’,i:2,’: ‘ );

Readln(a[i]);

End;

For n:=1 to 3 do

Begin

Max:=0;

For i:=1 to 10 do

Begin

If a[i]>max then begin

Max :=a[i];

b[n]:=i;

c[n]:=max;

    End;

End;

a[b[n]]:=0;

End;

Writeln;

For   i:=1 to 3 do

Begin

Write(‘a(‘,b[i],’)’);

Write(‘--->  ‘,c[i]:3:2);

Writeln;

End;

Read(s);

End.