BTTH3_H
Chia sẻ bởi Thanh Binh |
Ngày 14/10/2018 |
23
Chia sẻ tài liệu: BTTH3_H thuộc Tư liệu tham khảo
Nội dung tài liệu:
Bài thực hành 3
Uses Crt;
Const nmax=100;
Type
Myarray=Array[1..nmax] of integer;
Var A:myarray;
s, n, i, k:integer;
Begin
Clrscr; ô
write(`nhap n=`);readln(n);
writeln(`nhap cac phan tu trong mang’);
writeln(` Nhap xong mot so an Enter’)
For i:=1 to n do readln(a[i]) ;
For i:=1 to n do Write(A[i]:5); {In ra mang vua tao}
Writeln;
Write(`nhap k=`); readln(k);
s:=0;
For i:=1 to n do
if a[i] mod k=0 then s:=s+a[i];
Write(`tong can tinh la`,s);
Readln
End.
Uses Crt;
Const nmax=100;
Type
Myarray=Array[1..nmax] of integer;
Var A:myarray;
s, n, i, k:integer;
Begin
Clrscr; ô
write(`nhap n=`);readln(n);
writeln(`nhap cac phan tu trong mang’);
writeln(` Nhap xong mot so an Enter’)
For i:=1 to n do readln(a[i]) ;
For i:=1 to n do Write(A[i]:5); {In ra mang vua tao}
Writeln;
Write(`nhap k=`); readln(k);
s:=0;
For i:=1 to n do
if a[i] mod k=0 then s:=s+a[i];
Write(`tong can tinh la`,s);
Readln
End.
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Thanh Binh
Dung lượng: 2,56KB|
Lượt tài: 0
Loại file: rar
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)