Viết chương trình pascal Sử dụng biến mảng Để nhập từ bàn phím các phân tử của một dãy số sau đó in ra màn hình dãy số đó trung bình cộng của các phân tử của mạng

Khanh Huyen Hỏi từ APP VIETJACK

· 11:34 28/03/2023

Trả Lời (+5 điểm)

Lưu câu hỏi Lưu

Hỏi chi tiết

Quảng cáo

1 câu trả lời 391

Hoàng Linh

3 năm trước

program TinhTrungBinhCuaMang;

var
a: array of Integer;
n, i: Integer;
tong: Integer;
trungbinh: Real;

begin
// Nhập số phần tử của mảng
Write('Nhap so phan tu cua mang: ');
ReadLn(n);

// Cấp phát bộ nhớ cho mảng
SetLength(a, n);

// Nhập các phần tử của mảng
for i := 0 to n-1 do
begin
Write('Nhap phan tu thu ', i+1, ': ');
ReadLn(a[i]);
end;

// Tính tổng các phần tử của mảng
tong := 0;
for i := 0 to n-1 do
begin
tong := tong + a[i];
end;

// Tính trung bình cộng của mảng
trungbinh := tong / n;

// In ra màn hình kết quả
WriteLn('Day so vua nhap la:');
for i := 0 to n-1 do
begin
WriteLn(a[i]);
end;
WriteLn('Trung binh cong cua day so la: ', trungbinh:0:2);
ReadLn;
end.

0 bình luận

Đăng nhập để hỏi chi tiết

Quảng cáo

Bạn hỏi - Chuyên gia trả lời

Bạn cần hỏi gì?

1 câu trả lời 391

Câu hỏi hot cùng chủ đề

Bài viết mới nhất Lớp 8