Giúp mik vs ạ đang cần gấp
Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím. 2) tính tổng và trung bình cộng các phần tử của dãy số
Giúp mik vs ạ đang cần gấp
Viết 1 chương trình thực hiện các yêu cầu sau 1) Nhập vào dãy n số tự nhiên bất kì nhỏ hơn 50 từ bàn phím. 2) tính tổng và trung bình cộng các phần tử của dãy số
var A:array[1..50] of integer;
n,i,X : integer;
begin
X:=0;
write(‘do dai cua day so la:’);readln(n);
while (n<0) or (n>=50) do begin
Writeln(Hay nhap lai n=’);readln(n);
for i:=1 to n do begin
readln(A[i]);
X:=X+A[i];
end;
Writeln(‘Tong cac phan tu cua day so la:’,X);
Writeln(‘Trung binh cong cac phan tu cua day so la:’, X/n);
readln
end.
(Mik chưa KT lỗi đâu nha)
var A:array[1..100] of integer;
n,i,X : integer;
begin
X:=0;
write(‘do dai cua day so la:’);readln(n);
while (n<0) or (n>=50) do begin
Writeln(Hay nhap lai n=’);readln(n);
for i:=1 to n do begin
readln(A[i]);
X:=X+A[i];
end;
Writeln(‘Tong cac phan tu cua day so la:’,X);
Writeln(‘Trung binh cong cac phan tu cua day so la:’, X/n);
readln
end.