viết chương trình nhập một dãy n số và in ra màn hình các câu sau
số dương nhỏ nhất
số dương bé nhất
số âm nhỏ nhất
số âm bé nhất
Nhớ là tất cả các câu phải có in ra vị trí trên dãy số
ctlhn +5* cho nhanh nhất
viết chương trình nhập một dãy n số và in ra màn hình các câu sau
số dương nhỏ nhất
số dương bé nhất
số âm nhỏ nhất
số âm bé nhất
Nhớ là tất cả các câu phải có in ra vị trí trên dãy số
ctlhn +5* cho nhanh nhất
uses crt;
var i,n,min,min1,vt,vt1:longint; a:array[1..100000]of longint;
begin
clrscr;
write(‘Nhap n: ‘);readln(n);
min:=high(longint); min1:=0;
for i:=1 to n Do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);readln(a[i]);
if (a[i]>0)and(a[i]<min) then
begin vt:=i; min:=a[i]; end;
if (a[i]<0)and(a[i]<min1) then
begin vt:=i; min1:=a[i]; end;
end;
writeln(‘Vi tri so duong nho (be) nhat: ‘,vt,’. So do la: ‘,min);
writeln(‘Vi tri so am nho (be) nhat: ‘,vt,’. So do la: ‘,min1);
readln
end.