aikhanh

var a: array[1..20] of integer; i: byte; tong1, tong2: real; begin for i:=1 to 20 do begin write(‘Nhap gia tri cho phan tu thu ‘,i,’:

Bởi

var a: array[1..20] of integer; i: byte; tong1, tong2: real; begin for i:=1 to 20 do begin write(‘Nhap gia tri cho phan tu thu ‘,i,’: ‘); readln(a[i]); end; for i:=1 to 20 do if (a[i] mod 5 = 0) then tong1:=tong1+a[i]; writeln(‘Tong la : ‘,tong1); Tại sao không thể khia báo tong1, tong2 kiểu real … Đọc tiếp