_Nhập 1 mảng số nguyên Nhân phần tử
_In ra mà hình các phần tử chia hết cho X và tỉnh tổng các phần tử này
_với X và N là 2 số đuợc nhập từ bàn phím

Question

_Nhập 1 mảng số nguyên Nhân phần tử _In ra mà hình các phần tử chia hết cho X và tỉnh tổng các phần tử này _với X và N  là 2 số đuợc nhập từ bàn phím

tonga · Answer

Program Hotboy;

Uses crt;

Var A:array[1..100] of integer;

s,n,x : longint;

Begin

Clrscr;

s:=0;

Write(‘nhap so n’);

For i:=1 to n do

Write(‘A[‘,i,’]’);

Readln(A[i]);

Write(‘ nhap x’); readln(x);

For i:=1 to n do

If ( A[i] mod x=0) then Writeln(A[i]);

S:=S+A[i];

Write(‘Tong cac so la’,S);

Readln

End.

quynhthu · Answer

program ct;

uses crt;

var i,n,x,s:integer;

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

begin

clrscr;

write(‘nhap n:=’);readln(n);

for i:=1 to n do

begin

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

end;

write(‘nhap x:=’);readln(x);

for i:=1 to n do

if A[i] mod x=0 then writeln(‘ cac so chia het cho x la:’,A[i]);

s:=0;

for i:=1 to n do

s:=s+A[i];

writeln(s);

readln

end.

0 bình luận về “_Nhập 1 mảng số nguyên Nhân phần tử _In ra mà hình các phần tử chia hết cho X và tỉnh tổng các phần tử này _với X và N là 2 số đuợc nhập từ bàn phím”