Viết Chương trình nhập vào một mảng đến các số nhỏ hơn 1 21/07/2021 Bởi Josephine Viết Chương trình nhập vào một mảng đến các số nhỏ hơn 1
var a: array[1..200] of integer; D, i, n: byte; Begin Write(‘nhap n: ‘); readln(n); D:=0; For i:=1 to n do Begin Write(‘nhap a[‘, i, ‘] = ‘); Readln(a[i]); If a[i]<1 then inc(d); End; Write(‘co ‘, d, ‘ so nho hon 1’); Readln End. Bình luận
program nho_hon1; uses crt; var A:array[1..100] of integer; n,i,d:byte; begin clrscr; write(‘Nhap so luong phan tu cua mang: ‘); readln(n); d:=0; for i:=1 to n do begin write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]); if A[i]<1 then d:=d+1; end; write(‘Co ‘,d,’ so nho hon 1′); readln; end. Bình luận
var a: array[1..200] of integer;
D, i, n: byte;
Begin
Write(‘nhap n: ‘); readln(n);
D:=0;
For i:=1 to n do
Begin
Write(‘nhap a[‘, i, ‘] = ‘);
Readln(a[i]);
If a[i]<1 then inc(d);
End;
Write(‘co ‘, d, ‘ so nho hon 1’);
Readln
End.
program nho_hon1;
uses crt;
var A:array[1..100] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap so luong phan tu cua mang: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘Nhap so thu ‘,i,’: ‘); readln(A[i]);
if A[i]<1 then d:=d+1;
end;
write(‘Co ‘,d,’ so nho hon 1′);
readln;
end.