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 to: ‘);

             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

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