Cho màn A gồm N phân tử nhập từ bàn phím viết chương trình tính và in ra màn hình 1.Tổng các phân tử chia cho K với K nhập từ bàn phím 2.Trung bình cộng các phân tử chế cho K với K nhập từ bàn phím (Mn lm nhanh giúp mk với ,e đang vội phải nộp bài ạ)
1 câu trả lời
uses crt;
var a:array[0..10000007] of longint;
i,n,k:longint;
c:real;
begin
readln(n,k);
for i := 1 to n do
begin
read(a[i]);
c := c + a[i];
end;
writeln('1. Tong cac phan tu chia cho k: ',c/k:0:2);
writeln('2. Trung binh cong cac phan tu chia cho k: ',(c/n)/k:0:2);
readln;readln;
end.
Câu hỏi trong lớp
Xem thêm
