Giúp mình viết Pascal với: Nhập vào một mảng các số nguyên có N phần tử. In ra màn hình phần tử Âm cuối cùng trong mảng. Cảm ơn nhiều ạ.

0 bình luận về “Giúp mình viết Pascal với: Nhập vào một mảng các số nguyên có N phần tử. In ra màn hình phần tử Âm cuối cùng trong mảng. Cảm ơn nhiều ạ.”

1. program phantuam;

   uses crt;

   var A:array[1..10000] of integer;

         n,i:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu N: ‘);   readln(n);

   writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);

   for i:=1 to n do

    begin

     write(‘Nhap phan tu thu ‘,i,’: ‘); 

     readln(A[i]);

    end;

   write(‘Phan tu am cuoi cung trong day la: ‘);

   for i:=n downto 1 do

    if A[i]<0 then

     begin

      write(A[i]);

      readln;

      exit;

     end;

   write(‘Khong co. Bi du roi!’);

   readln

   end.

   Bình luận

2. uses crt;
   var i,n:byte;
   a:array[1..5] of integer;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]:’);
                   readln(a[i]);
           end;
           for i:=n downto 1 do
                   if a[i]<0 then
                   begin
                           write(‘Phan tu am cuoi cung trong day la:’,a[i]);
                           readln;
                           exit;
                   end;
           write(‘Du lieu sai.’);
           readln
   END.

   Chúc bạn học tốt.

   Cho mik xin ctlhn.

   Bình luận