Bài tập

Viết chương trình đếm số chẵn và lẻ trong dãy trong Pascal.
clrscr;     i:=0;     chan:=0;     le:=0;     repeat         i:=i+1;         readln(a[i]);             until a[i]=0;     {Đọc mảng cho tới khi phần tử thứ a[i]=0}     n:=i; {Tong cac phan tu cua mang a}     for i:=1 to n do         begin             if (a[i] mod 2 = 0) then chan:=chan+1 {Chia hết cho 2 là số chẵn}             else le:=le+1;         end;     writeln(`So chan: `,chan);     writeln(`So le: `,le);
số nguyên tổ trong mảng 1
rite(`nhap n:`);
      readln(n);
      for i:=1 to n do
      begin
            write(`nhap a[`,i,`] `);
            readln(a[i]);
      end;
      j:=1;
      for i:=1 to n do
            if a[i]>1 then
            begin
                 repeat
                       inc(j);
                 until (a[i] mod j=0);
                 if j>(a[i] div 2) then inc(d);
                 j:=1;
            end;
      write(`Co `,d,` so ngto trog day`);
tìm số lớn nhất
For i:=1 to N do
Begin
Write(‘Phan tu thu ‘, i ,’= ‘);
Readln(B[i]);
End;
Max:=B[1];
For i:=2 to N doIf B[i]> Max then Max:=B[i];
Write(‘Gia tri phan tu Max: ‘, Max);