BÀI TẬP KIỂU MẢNG | BÀI 2 | TIN HỌC PASCAL LỚP 11

Đề:
Nhập mảng một chiều các số nguyên (không quá 100 phần tử);
- Nhập một số nguyên K từ bàn phím;
- Đếm xem trong mảng vừa nhập có bao nhiêu phần tử có giá trị chia hết cho K và tính tổng các phần tử đó;
- Xuất kết quả ra màn hình gồm: các phần tử chia hết cho K, số lượng phần tử chia hết cho K và tổng của nó.

Bài làm:
program
uses  crt;
var A: array[1..100] of integer;
      N,k,i,S,dem: integer;
begin
          clrscr;
          write('Nhap so luong phan tu cua day so nguyen: ');
          readln(N);
          write('Nhap so nguyen k: ');
          readln(k);
          dem:=0;
          S:=0;
          for i:=1 to N do
          begin
                    write('Nhap gia tri cho phan tu thu ',i,': ');
                    readln(A[i]);
                    if A[i] mod k=0 then dem:=dem + 1;
                    if A[i] mod k=0 then S:=S + A[i];
          end;
          write('Cac so nguyen chia het cho k la: ')
          for i:= 1 to N do
          if A[i] mod k =0 then write(A[i],' ');
          writeln;
          writeln('So luong phan tu chia het cho k la: ',dem);
          writeln('Tong cac so chia het cho k la: ',S);
          readln;
end.