Gửi "chị"

_________________________

Program baitap;

Uses crt;

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

      n,i,S,k,max,dem:integer;

Begin

Clrscr;

Write('n='); Readln(n);

For i:=1 to n do              `->` Câu a bắt đầu từ đây

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     End;

Write('k='); Readln(k);         `->` Từ đây xuống là câu b

S:=0;

For i:=1 to n do If A[i] mod k=0 then S:=S+A[i];

Writeln('Tong cac phan tu la boi cua k:',S);

max:=A[1];    `->` Từ đây xuống là câu c

For i:=2 to n do If A[i]>max then max:=A[i];

Writeln('Phan tu lon nhat:',max);

dem:=0;    `->` câu d từ đây

For i:=1 to n do If A[i]=0 then dem:=dem+1;

Writeln('Co ',dem,' so co gia tri bang 0');

Write('Xuat mang:');    `->` Đây là câu e

For i:=1 to n do write(A[i],'   ');

Readln

End.

______________________________

Khi bạn làm đừng viết vào chữ mình gạch chân và khoảng trống hàng nhe, mình ghi vậy cho bạn dễ nhìn thôi

program sksk;
uses crt;
var a : array[1..100] of integer;
      i, n, k, s, max, dem  : integer;
begin
clrscr;
s := 0;
dem := 0;
write('nhap so luong phan tu co trong mang :');readln(n);
write('nhap so k :');readln(k);
for i := 1 to n do
begin
write('nhap phan tu thu ', i ,' : ');readln(a[i]);
if a[i] mod k = 0 then s := s + a[i] ;
if a[i] = 0 then dem := dem + 1;
end;
max := a[1];
for i := 2 to n do if a[i] > max then max := a[i] ;
writeln('tong cac phan tu la boi cua', k ,' la :', s);
writeln('phan tu lon nhat trong mang la :', max);
writeln('so luong cac phan tu co gia tri bang 0 la :', dem);
write('cac phan tu co trong mang la :');
for i := 1 to n do write(a[i]:4);
readln
end.