http://www.google.com.vn/giaidap/user?userid=18015322106713605766&tab=wtmtor Người dùng Trả lời: Chưa đặt tên. Hỏi và đáp. Google. Mon, 20 May 2013 07:14:56 +0000 vi Chưa đặt tên Fri, 28 Sep 2012 14:55:31 +0000 Minh  muốn hỏi cách download phần mền tính

Chưa đặt tên ]]> http://www.google.com.vn/giaidap/thread?tid=64559957f51ae9d90004cac43f5406ce Chưa đặt tên Thu, 20 Jan 2011 01:39:20 +0000 Đây. là bài rất cơ bản  Bạn phải tự viết mới rèn luyện được
Chương trình có thể viết như sau:
Uses CRT;
VAR i,N:Integer;
      T:real;
      A,B:array[1..200] of Integer;
BEGIN
     Write('Nhap so phan tu cua day '); Readln(N);
      T:=0;
      For i:=1 to N do
      Begin
          Write('A[',i,']=');   Readln(A[i]);
          T:=T+A[i];
          If i>1 Then B[i-1]:=ABS(A[i]-A[i-1]);
      End;
      T:=T/N;
      Writeln('Day so ban dau la:');
      For i:=1 to N do Writeln(A[i]);
      Writeln;
      Writeln('Gia tri trung binh cua day so ban dau la:',T:5:2);
      Writeln('Day so moi tao duoc tu day ban dau la:');
      For i:=1 to N-1 do Writeln(B[i]);
      Writeln;  
      Readln;
END.

Chưa đặt tên ]]> http://www.google.com.vn/giaidap/thread?tid=64559957f51ae9d900049a3d33d6e718