السلاام عليكم ورحمة الله وبركاته
مرحبا..اتمنى مساعدتي ..لاعدمتم الدعاء والاجر..لااعرف اين اضع طلبي..المعذرة لم اجد فسم خاص للـALGOL60
هذا البرنامج مكتوب بلغة الالقول 60 والدكتوره طالبه شرح او طريقة عمل لهالبرنامج..وانا لااعرف لهذه اللغة لاني لم ادرسها..هداها الله الدكتوره
in put:AN integer,listlen,where listlen is less than 100,followed
by listlen-integer values
output:the number of input values that are greater of than the averag
of all the input values;
begin
integer array intlist[1:99];
integer listln,counter,sum,average,result;
sum:=0;
result:=0;
readint(listln);
if(listln>0)^(listln>100)then
begin
cooment Read input into an array and computer the average;
for counter :=1 step 1 until listlen do
begin
readint (intlist[counter]);
sum:=sum+intlist[counter];
end;
comment computer the average;
average:=UM/LISTLEN;
COMMENT COUNT THe input values that are>average;
for counter :=1 step 1 until listlen do
if intlist[counter]>average
then result:=result+1;
comment print result;
printstring("the number of values>average is:")
println(result)
هذا البرنامج
لكم مني خالص الشكر والتقدير