nhập N, dãy gồm n số nguyên, kiểm tra trong dãy có số âm không

nhập N, dãy gồm n số nguyên, kiểm tra trong dãy có số âm không:

xác định input,output:

input: nhập N,dãy số;

output: kết quả kiểm tra dãy số;

thuật toán:

B1: nhập N,dãy số;

B2: cho for i đi từ 1 đến N nếu(số có vị trí thứ i <0) thì xuất xoá màn hình chữ " co "và thoát khỏi vòng lập  ngược lại xoá màn hình ghi chữ " khong ";

B3: kết thúc;

chương trình:

program bai_giai;
uses crt;
var n,i:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  for i:=1 to n do if(a[i]<0)then
        begin
         clrscr;
         write('co');
         break;
        end else
                begin
                 clrscr;
                 write('khong');
                end;
 readln;
end.

uses crt;
var i,n,kt:longint; a:array[1..250]of longint;
begin
clrscr;
   write('Nhap N: ');readln(n);
   for i:=1 to n do
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i]<0 then kt:=1;
      end;
   if kt=1 then writeln('Co') else writeln('Khong');
readln
end.