Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình.

Hoàng Bách

Đã trả lời bởi chuyên gia

· 00:00 09/02/2024

Đã trả lời bởi chuyên gia

Viết chương trình nhập vào một dãy số nguyên có n phần tử. In ra màn hình phần tử nhỏ nhất, phần tử lớn nhất và giá trị trung bình của danh sách ra màn hình.

Trả Lời

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

Hỏi chi tiết

Quảng cáo

2 câu trả lời 142

sharking

1 tháng trước

làm bài

0 bình luận

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

Trâm Anh

2 năm trước

Lời giải:

Program MAX_MIN_AVG;
Uses crt;
Var a:array[1..20] of integer;
i,n,max,min,sum:integer;
Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('---------------------------');
Write('Nhap so phan tu cua day n='); readln(n);
For i:=1 to n do
Begin
      Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0;
For i:=1 to n do
Begin
      If (Min > a[i]) then Min:=a[i];
      If (Max < a[i]) then Max:=a[i];
      Sum :=sum+a[i];
End;
Writeln('Day so vua nhap la: ');
Writeln('-------------------------');
For i:=1 to n do
       Write(a[i]:4);
Writeln;
Writeln('Gia tri lon nhat la:',Max);
Writeln('gia tri nho nhat la:',Min);
Writeln('gia tri trung binh la:',Sum/n:6:2);
Readln;
End.

...Xem thêm

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ì?

2 câu trả lời 142

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

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