viết chương trình tính tổng 4 số nhập từ bàn phím

0 bình luận về “viết chương trình tính tổng 4 số nhập từ bàn phím”

1. uses crt;

    

    

   var t:real;

   a:array [1..4] of real;

   i:byte;

   begin

   clrscr;

   for i:=1 to 4 do

   begin

   write(‘Nhap so thu ‘,i,’: ‘);

   readln(a[i]);

   if a[i]<0 t:=t+a[i];

   end;

   write (‘Tong cac so thuc am la: ‘,t:4:2);

   readln

   end.

   Bình luận