viết chương trình nhập mảng A các số nguyên có n phần tử (n<=100). Tính tổng số chia hết cho 5 hoặc 7. Đếm số không chia hết cho 3 và >k (k là số nguyên dương nhập từ bàn phím) giúp mk vs ạ
1 câu trả lời
program sksk;
uses crt;
var a : array[1..100] of integer;
i, n, k, s, dem : integer;
begin
clrscr;
s := 0;
dem := 0;
write('nhap so luong phan tu co trong day :');readln(n);
write('nhap gia tri so k :');readln(k);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
if ((a[i] mod 5 = 0) or (a[i] mod 7 = 0)) then s := s + a[i];
if ((a[i] mod 3 <> 0) and (a[i] mod k <> 0)) then dem := dem + 1;
end;
writeln('tong cac so chia het cho 5 hoặc chia het cho 7 la :', s);
writeln('so luong cac so khong chia het cho 3 va ', k ,' la :', dem);
readln
end.
