برنامه ای که 30 عدد دریافت و در آرایه ذخیره و میانگین را حساب کند به زبان پاسکال

منبع:gameover.blog.ir

uses crt;
var i:integer;
var sum:double;
var strTemp:string;
var myArray : Array[1..30] of Integer;
BEGIN
for i:=1 to 30 do begin
Str(i,strTemp);
write("num(" + strTemp + ") : " );ReadLn(myArray[i]);
sum:=sum+myArray[i];
end;
write(sum div 30);
END.