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 Giúp mik vs đang cần gấp ạ❤️

0 bình luận về “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 Giúp mik vs đang cần gấp ạ❤️”

1. Program bt;

   Uses crt;

   Var a:array[1..100] of byte;

   S,i,n:word;

   tb:real;

   Begin

   Clrscr;

   t:=0;Write(‘Nhap so luong benh nhan: ‘);readln(n);

   For i:=0 to n do

   Begin

   Write(‘Nhap tuoi cua benh nhan thu ‘,i,’: ‘);

   readln(a[i]);S:=t+a[i];

   End;

   tb:=S/n;

   Write(‘Do tuoi trung binh cua cac benh nhan mac Covid-19 la: ‘,tb:8:0);

   Readln;

   End.

   Bình luận