PROGRAM ex6;
uses crt;
const title=' ex6 โปรแกรม ตัวแปรชุด ARRAY';
author=' โดย นายองอาจ พรมประไพ';
Var i,s,n:integer;
a:real;
x:array [1..20] of integer;
yn:char;
{main}
begin
repeat
clrscr;writeln(title);writeln(author);writeln;
write('จำนวนข้อมูลทั้งหมด = ');readln(n);
i:=1;
s:=0;
while i<=n do
begin
write(' x = ');readln(x[i]);
s:=s+x[i];
i:=i+1;
end;
a:=s/n;
gotoxy(40,4);write(' จำนวนข้อมูลทั้งหมด ');
for I:=1 to N DO
Begin
gotoxy(40,i+4);write(' จำนวนที่ ',i,' คือ ',x[i]);
end;
gotoxy(40,i+7);write(' จำนวนข้อมูล = ',n:8);
gotoxy(40,i+8);write(' ผลรวม = ',s:10);
gotoxy(40,i+9);write(' ค่าเฉลี่ย = ',a:10:2);
gotoxy(40,24);write(' ทำต่อ ? ');readln(yn);
yn := upcase(yn);
until (yn='N');
end.
|
