Viết chương trình nhập mảng a gồm n số nguyên (n <= 100

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 446 24/07/2023


Viết chương trình nhập mảng a gồm n số nguyên (n <= 100

Đề 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).

Lời giải:

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.

1 446 24/07/2023


Xem thêm các chương trình khác: