kienss MVP
| Tài khoản hoạt động trên 10 ngày mới có thể đăng nội dung chia sẻ!  kienss MVP | Chat Online Reportprogram:tim so; var:i,n,d:integer; A:array [1..100] of real; begin write('Nhap cac so,n= ');reald(n); for i:=1 to n do begin write(i,'.'); readln(a[i]); end; d:=0; for i:=1 to n do begin if a[i]<0 then d:=a[i]; end; writeln('so am',d); end.
program:tim so; var:i,n,d:integer; A:array [1..100] of real; begin write('Nhap cac so,n= ');reald(n); for i:=1 to n do begin write(i,'.'); readln(a[i]); end; d:=0; for i:=1 to n do begin if a[i]<0 then d:=a[i]; end; writeln('so am',d); end. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Trung tâm mua sắm
