nhập vào chương trình passcal.in ra các phần tử là số 0.in ra các phần tử mang giá trị là số nguyên dương.đếm xem có bao nhiêu số nguyên dương.in ra p

nhập vào chương trình passcal.in ra các phần tử là số 0.in ra các phần tử mang giá trị là số nguyên dương.đếm xem có bao nhiêu số nguyên dương.in ra phần tử mang giá trị lớn nhất giải

0 bình luận về “nhập vào chương trình passcal.in ra các phần tử là số 0.in ra các phần tử mang giá trị là số nguyên dương.đếm xem có bao nhiêu số nguyên dương.in ra p”

  1. program BT;

    uses crt;

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

          n,i,d,max: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             write(‘Cac phan tu la so 0: ‘);

             for i:=1 to n do

                  if A[i]=0 then write(A[i],’  ‘);

             writeln;

             write(‘Cac phan tu la so nguyen duong: ‘);

             for i:=1 to n do

                  if A[i]>0 then

                  begin

                           write(A[i],’  ‘);

                           d:=d+1;

                  end;

              writeln;

              writeln(‘Co ‘,d,’ phan tu la so nguyen duong’);

              max:=A[1];

              for i:=2 to n do

                   if max<A[i] then max:=A[i];

              write(‘Phan tu co gia tri lon nhat la: ‘,max);

              readln

    End.

    Bình luận
  2. program CTNMT;

    uses crt;

    var n,i,dem: longint;

    A: array [1..1000] of longint;

    Begin

    Writeln(‘Ban hay N’); Readln(n);

    for i:=1 to n do

    begin

    Writeln(‘Nhap so thu ‘,i); Readln(a[i]);

    end;

    Writeln(‘In ra mang:’);

    for i:1 to n do Write(a[i]:5);

    writeln;

    Writeln(‘In ra so chan trong mang’);

    for i:= 1 to n do

    begin

    if (a[i] mod 2) = 0 then Write(a[i]:5)

    if a[i] < 0 then dem:= dem +1;

    end;

    writeln(‘so so nguyen am la: ‘,đem);

    REadln;

    end.         

                                               HOẶC

    program BT;

    uses crt;

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

          n,i,d,max: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

             begin

                      write(‘A[‘,i,’]=’); readln(A[i]);

             end;

             write(‘Cac phan tu la so 0: ‘);

             for i:=1 to n do

                  if A[i]=0 then write(A[i],’  ‘);

             writeln;

             write(‘Cac phan tu la so nguyen duong: ‘);

             for i:=1 to n do

                  if A[i]>0 then

                  begin

                           write(A[i],’  ‘);

                           d:=d+1;

                  end;

              writeln;

              writeln(‘Co ‘,d,’ phan tu la so nguyen duong’);

              max:=A[1];

              for i:=2 to n do

                   if max<A[i] then max:=A[i];

              write(‘Phan tu co gia tri lon nhat la: ‘,max);

              readln

    End.

    Bình luận

Viết một bình luận