viết chương trình nhập N số nguyên từ bàn phím.Hãy tính và in trung bình các số đã nhập: (có các biến:x,i,s,n) 1) viết lệnh nhập giá trị từ bàn phím? 2)viết lệnh nhập các giá trị cho phần tử ? 3)viết lệnh tính tổng cho các phần tử ? 4)viết lệnh tính trung bình các phần tử? giúp mik vs ,help me!!!! mik đang cần gấp nhé!! cảm ơn nhiều!!

1 câu trả lời

program ct;

uses crt;

var i,n,s:integer; tb:real;

begin

clrscr;

write('nhap n:=');readln(n);

for i:=1 to n do

begin

write('nhap mang A[',i,']:=');readln(A[i]);

end;

s:=0;

for i:=1 to n do

begin

s:=s+A[i];

tb:=s/n;

end;

writeln('tong cac phan tu la:',s);

writeln('trung binh cong cua cac phan tu:',tb:2);

readln

end.

Câu hỏi trong lớp Xem thêm