cho dãy số nguyên cho dãy a gồm n số nguyên a1 a2 a3-.. an có bao nhiêu số hạng có giá trị bằng 5 26/07/2021 Bởi Gianna cho dãy số nguyên cho dãy a gồm n số nguyên a1 a2 a3…… an có bao nhiêu số hạng có giá trị bằng 5
program za; uses Crt; var i,n,a,dem : integer; begin clrscr; dem := 0; Write(‘nhap n = ‘); readln(n); For i:=1 to n do begin Write(‘nhap phan tu thu ‘,i,’ la : ‘); readln(a); If (a = 5) then dem := dem + 1; end; Write(‘Co ‘,dem,’ so hang co gia tri bang 5 ‘); readln end. Bình luận
program za;
uses Crt;
var i,n,a,dem : integer;
begin
clrscr;
dem := 0;
Write(‘nhap n = ‘); readln(n);
For i:=1 to n do
begin
Write(‘nhap phan tu thu ‘,i,’ la : ‘); readln(a);
If (a = 5) then dem := dem + 1;
end;
Write(‘Co ‘,dem,’ so hang co gia tri bang 5 ‘);
readln
end.