Câu hỏi:
13/07/2024 1,985Sale Tết giảm 50% 2k7: Bộ 20 đề minh họa Toán, Lí, Hóa, Văn, Sử, Địa…. form chuẩn 2025 của Bộ giáo dục (chỉ từ 49k/cuốn).
Quảng cáo
Trả lời:
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.
CÂU HỎI HOT CÙNG CHỦ ĐỀ
Câu 2:
Câu 4:
Trong bảng sau đây, mỗi học sinh chỉ có mộ mã số (Mahs):
Khoá chính của bảng là:
Câu 6:
Câu 7:
Đề thi học kì 1 Tin học 12 Kết nối tri thức có đáp án- Đề 1
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 7 có đáp án
263 câu Trắc nghiệm tổng hợp ôn thi tốt nghiệp THPT môn Tin học Chủ đề F. Giải quyết vấn đề với sự trợ giúp của máy tính có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 8 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 10 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 9 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 11 có đáp án
15 câu Trắc nghiệm Tin học 12 Kết nối tri thức Bài 14 có đáp án
về câu hỏi!