|
INPUT.TXT
|
OUTPUT.TXT
|
|
|
3 5 6 8 2 1 8 5 5 4
|
1 2 3 4 5 5 5 6 8
8 1
khong
4
3 5 5 5
|
i:=o;
while not eof(f) do
begin
i:=i+1; read(f,a[i]);
end;
N:=i;
|
|
10
3 5 6 8 2 1 8 5 5 4
|
|
readln(f,n);
for i:=1 to N do read(f,a[i]);
|
DÃY ĐAN DẤU TRONG PASCAL Dãy đan dấu là dãy không có 2 phần tử cạnh nhau có dấu giống nhau. ví dụ: -2 4 -9 5 -23 8 là dãy đan dấu Thủ tục kiểm tra dãy đan dấu trong dãy số: procedure dandau; var i,j:integer; kt:boolean; begin kt:=true; for i:=1 to N-1 do begin j:=i+1; if a[i] *a[j] >0 then kt:=false; end; If kt=true then write('Day A la day dan dau') else write('Day A khong phai day dan dau'); end;
Nhận xét
Đăng nhận xét