Viết chương trình : tính độ tuổi trung bình của các bệnh nhân mắc covid 19 Mn giúp với a thanks
1 câu trả lời
Program baitap;
Uses crt;
Var A:array[1..500] of integer;
i,n,S:integer;
Begin
Clrscr;
Write('Nhap so benh nhan mac covid19:'); Readln(n);
S:=0;
For i:=1 to n do
Begin
Write('Nhap so tuoi cua nguoi thu ',i,':');
Readln(A[i]);
S:=S+A[i];
End;
Writeln('Tuoi trung binh cua cac benh nhan mac covid19 la:', S/n:3:0);
Readln
End.
Câu hỏi trong lớp
Xem thêm
