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

SP

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

NT
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ự
YH
Xem chi tiết
BN
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
NH
Xem chi tiết
CT
Xem chi tiết
BL
Xem chi tiết
TN
Xem chi tiết
VT
Xem chi tiết