Question

viết chương trình nhập vào 1 mảng a có n phần tử, n nhập từ bàn phím

a.in ra màn hình mảng được xếp theo thứ tự số dương tăng dần sau đó đến số âm tăng dần

b. in ra các dãy số liên tiếp gồm 3 số trong dãy nếu k có thì báo là không có dãy liên tiếp trong mảng

Answer 1

program Tin_hoc;

uses crt;

var n,i,j,min:integer;

a: array[1..100] of integer;

begin

clrscr;

write('Nhap n: ');readln(n);

writeln('Nhap ',n,' phan tu:');

for i:= 1 to n do begin write('a[',i,']: '); readln(a[i]) end;

for i:= 1 to n do begin

min:=a[i];

If a[i] >0 then for j:= i to n do if a[j] < a[i] then min:= a[j];

write(min,' ') end;

for i:= 1 to n do begin

min:=a[i];

If a[i] <0 then for j:= i to n do if a[j] < a[i] then min:= a[j];

write(min,' ') end;

readln;

end.

Mik ko có thời gian nên chỉ làm thử câu a

Sai thì thôi nha