Bài 9. Làm việc với dãy số

H24

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 ạ

PG
23 tháng 4 2023 lúc 22:21

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.

Bình luận (0)

Các câu hỏi tương tự
UO
Xem chi tiết
MA
Xem chi tiết
BT
Xem chi tiết
UO
Xem chi tiết
HT
Xem chi tiết
HL
Xem chi tiết
HP
Xem chi tiết
LD
Xem chi tiết
TD
Xem chi tiết