Bài 4: Bài toán và thuật toán

Sury Phạm

Cho dãy A gồm N số nguyên A1,,,,,,A2

Tìm vị trí số âm đầu tiên của dãy

Nguyễn Lê Phước Thịnh
6 tháng 10 2020 lúc 21:16

uses crt;

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

i,n,vt:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

vt:=0;

for i:=1 to n do

if a[i]<0 then

begin

vt:=i;

break;

end;

if vt=0 then writeln('Khong co so am trong day')

else writeln('Vi tri so am dau tien cua day la: ',vt);

readln;

end.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Yến Vi Huỳnh
Xem chi tiết
BÍCH NGỌC
Xem chi tiết
Nguyen Huynh
Xem chi tiết
Nguyen Huynh
Xem chi tiết
Nguyen Huynh
Xem chi tiết
Nguyen Huynh
Xem chi tiết
chỉ là một thằng ngốc tr...
Xem chi tiết
Bàn Tay Công Lí
Xem chi tiết
Tiên Nguyễn
Xem chi tiết
Vỏ thuỷ
Xem chi tiết