1. Cho một dãy số gồm N phân tử: – Tính tổng các phân tử trong dãy số. – Tìm phân tử lớn nhất. – In ra màn hình các số nguyên tố có trong dãy

1. Cho một dãy số gồm N phân tử:
– Tính tổng các phân tử trong dãy số.
– Tìm phân tử lớn nhất.
– In ra màn hình các số nguyên tố có trong dãy

0 bình luận về “1. Cho một dãy số gồm N phân tử: – Tính tổng các phân tử trong dãy số. – Tìm phân tử lớn nhất. – In ra màn hình các số nguyên tố có trong dãy”

  1. program Cau_1;

    uses crt;

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

          n,i,T,max,j,d: integer;

    Begin

             clrscr;

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

             max:=1;

             for i:=1 to n do

             begin

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

                      T:=T+A[i];

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

             end;

             writeln(‘Tong cac phan tu = ‘,T);

             writeln(‘Phan tu lon nhat: ‘,max);

             write(‘Cac so nguyen: ‘);

             for i:=1 to n do

             begin

                      d:=0;

                      for j:=1 to A[i] do

                      if A[i] mod j=0 then d:=d+1;

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

             end;

             readln

    End.

    Bình luận
  2. uses crt;

    var 

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

    t,max,i,n:integer;

      function songuyento( n:integer):boolean;

    var

     i:integer;

        ok:boolean;

    begin

    ok:=true;

    for i:=2 to n-1 do

    if n mod i=0 then ok:=false;

    songuyento:=ok;

    end;

    begin

    clrscr;

        write(‘nhap so phan tu cua day: ‘); readln(n);

    for i:=1 to n do

    begin

    write(‘nhap phan tu thu [‘,i,’]: ‘); readln(a[i]); 

    end;

    t:=0;

    for i:=1 to n do

    t:=t+a[i];

       write(‘Tong cac phan tu trong day so la: ‘,t);

    writeln;

    max:=a[1];

    for i:=2 to n do

    if a[i]>max then max:=a[i];

    write(‘phan tu lon nhat la: ‘,max);

    writeln;

      write(‘Cac so nguyen to trong day la: ‘);

    for i:=2 to n do

    if songuyento(a[i]) then write(a[i],’ ‘);

    readln;

    end.
       

    Bình luận

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