Question

viết chương trình sử dụng biến mảng để nhập một dãy gồm N số nguyên từ bàn phím.In ra màn hình các số nguyên đó. Tính tổng và trung bình cộng của N số đó.

Giúp mình với ạ

Answer 1

program mang;

uses crt;

var

      N, i: integer;

      a: array[1..100] of integer;

      sum, average: double;

begin

      clrscr;

      write('Nhap so phan tu mang: ');

      readln(N);

      sum := 0;

      for i:= 1 to N do

      begin

            write('Nhap phan tu thu ', i, ': ');

            readln(a[i]);

            sum := sum + a[i];

      end;

      writeln('Cac phan tu cua mang la:');

      for i:= 1 to N do

            write(a[i], ' ');

      average := sum / N;

      writeln('Tong cac phan tu cua mang la: ', sum:0:2);

      writeln('Trung binh cong cua mang la: ', average:0:2);

      readln;

end.