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 ?
Loga
Sinh Học lớp 12
