viết chương trình nhập vào mảng A. in ra màn hình các phần tử vừa nhập viết chương trình nhậm vào mảng A. in ra tổng các phần tử vừa nhập Gợi ý: Áp dụ

viết chương trình nhập vào mảng A. in ra màn hình các phần tử vừa nhập
viết chương trình nhậm vào mảng A. in ra tổng các phần tử vừa nhập
Gợi ý: Áp dụng kiến thức bài 9
Gíup mình với

0 bình luận về “viết chương trình nhập vào mảng A. in ra màn hình các phần tử vừa nhập viết chương trình nhậm vào mảng A. in ra tổng các phần tử vừa nhập Gợi ý: Áp dụ”

  1. mình thấy giống như đề thiếu nên bạn thử xem đề này đúng không 

    Đề bài: Viết chương trình nhập Viết chương trình nhập mảng a gồm n số nguyên (n <= 100. Tính và đưa ra màn hình tổng các số chia hết cho số nguyên k).

    uses crt;

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

    i,n,k,t:integer;

    begin

    clrscr;

    write(‘Nhap n=’); readln(n);

    for i:=1 to n do

    begin

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

    end;

    write(‘Nhap so k=’); readln(k);

    t:=0;

    for i:=1 to n do 

      if a[i] mod k=0 then t:=t+a[i];

    writeln(‘Tong cac so chia het cho ‘,k,’ la: ‘,t);

    readln;

    end.

    Bình luận
  2. Câu 1:

    program Cau_1;

    uses crt;

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

          n,i: 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 vua nhap: ‘);

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

             readln

    End.

    Câu 2:

    program Cau_2;

    uses crt;

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

          n,i,S: integer;

    Begin

             clrscr;

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

             for i:=1 to n do

             begin

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

                      S:=S+A[i];

             end;

             write(‘S = ‘,S’);

             readln

    End.

    Bình luận

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