Nhập vào 1 dãy số nguyên ( N bé hơn bằng 20 ) . Kiểm tra có phần tử bằng 20 hay không? Viết 1 đoạn chương trình . Giúp với ạ.
2 câu trả lời
program ktra;
var
n,i,dem:integer;
A:array[1..100] of integer;
Begin
Repeat
write('Nhap N: '); readln(n);
Until (n<=20);
Dem:=0;
For i:=1 to n do
Begin
readln(A[i]);
if A[i]=20 then dem:=dem+1;
End;
if dem=0 then write('NO') else write('YES');
Readln;
End.
#Hngoc
uses crt;
var a : array[1..100] of integer;
i, n, dem : integer;
begin
clrscr;
write('nhap so phan tu : '); readln(n);
dem := 0;
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : '); readln(a[i]);
if a[i] = 20 then dem := dem + 1;
end;
if dem <> 0 then write('Co phan tu bang 20')
else write('Khong co phan tu bang 20');
readln
end.
