VCT nhập dãy số gồm n số. Tìm số lớn nhất. Nhập số k. In các số lớn hơn k.

0 bình luận về “VCT nhập dãy số gồm n số. Tìm số lớn nhất. Nhập số k. In các số lớn hơn k.”

1. program Day;

   uses ct;

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

         n,i,max,k: integer;

   Begin

            clrscr;

            write(‘Nhap n: ‘); readln(n);

            max:=1;

            for i:=1 to n do

            begin

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

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

            end;

            write(‘Day vua nhap: ‘);

            for i:=1 to n do write(A[i],’  ‘);

            writeln;

            writeln(‘So lon nhat: ‘,max);

            write(‘Nhap k: ‘); readln(k);

            write(‘Cac so lon hon ‘,k,’: ‘);

            for i:=1 to n do

                 if A[i]>k then write(A[i],’  ‘);

            readln

   End.

   Bình luận

2. var n,k,i,so,m,d:longint;

   begin

    writeln(‘nhap lan luot so phan tu va gia tri k’);readln(n,k);

    m:=0;d:=0;

    writeln(‘nhap lan luot cac phan tu trong mang’);

    for i:=1 to n do begin

     readln(so);

     if so>m then m:=so;

     if so>k then d:=d+1;

    end;

    writeln(‘ so lon nhat la:’,m);

    writeln(‘so gia tri lon hon k la:’,d);

    readln;

   end.

   Bình luận