Question

Đề : Bài tập về kiểu dữ liệu mảng (Array)

cho mảng số nguyên a , tìm số âm đầu tiên và vị trí của nó??????

Answer 1

program bt;

uses crt;

var n,i,vitri:word;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so phan tu cua mang:');readln(N);

writeln('nhap mang:');

for i:=1 to n do

begin

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

end;

vitri=0;

for i:=1 to n do

if a[i]<0 then

begin

writeln(' so am dau tien la:',a[i]);

vitri:=i;

break;

end;

if vitri=0 then write('khong co so nguyen am trong mang')

else write('vi tri la:',vitri);

readln;

end.