Yêu cầu: Viết chương trình nhập vào n số nguyên a1, a2,...,an. Thoát khỏi chương trình khi gặp một số âm và ghi ra số dương cuối cùng trước khi gặp số âm. Nếu dãy không có số âm thì in ra số 0. Dữ liệu: - Dòng 1 ghi số nguyên dương n(0<n<=106) - Dòng thứ hai ghi các số nguyên a1, a2,...,an kiểu 64 - bit Kết quả: Đưa ra số dương cuối cùng trước số âm đầu tiên của dãy pascal giúp mình ạ
2 câu trả lời
uses crt;
var i, n: longint;
a, pre: int64;
label __exit;
begin
readln(n);
for i:=1 to n do begin
read(a);
if a < 0 then begin
write(pre);
goto __exit;
end;
pre:=a;
end;
write(0);
__exit:
readln;
end.
uses crt;
var i, n: longint;
a, pre: int64;
label __exit;
begin
readln(n);
for i:=1 to n do begin
read(a);
if a < 0 then begin
write(pre);
goto __exit;
end;
pre:=a;
end;
write(0);
__exit:
readln;
