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 ?

0 bình luận về “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,’:”

  1. +Bạn khai báo mảng, các phần tử của mảng là integer nên thực chất bạn không cần real làm tốn dung lượng bộ nhớ.

    +Khi bạn in ra theo kiểu real thì bạn cần phải có cú pháp in kiểu số thực

    số: số lượng khoảng cách: số lượng phần thập phân (bạn không cần quan tâm số lượng khoảng cách)

    VD: n=36.2154

    write(n:2:2) thì in ra sẽ là 36.21

    + Nếu bạn dùng real thì hoàn toàn được không sao cả.

    *Mà tại sao bạn lại khai báo thêm tong2 chi cho tốn thêm dung lượng bộ nhớ.

    Bình luận

Viết một bình luận