Mạng máy tính và internet

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nhật Nguyễn

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

Nguyên Hưng Trần
7 tháng 3 2020 lúc 10:40

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

Khách vãng lai đã xóa

Các câu hỏi tương tự
Doãn Hoài Trang
Xem chi tiết
hoàng đá thủ
Xem chi tiết
hoàng đá thủ
Xem chi tiết
hoàng đá thủ
Xem chi tiết
Lục Hạ Vy
Xem chi tiết
helpme
Xem chi tiết
Doãn Hoài Trang
Xem chi tiết
helpme
Xem chi tiết
Moeo Con
Xem chi tiết