Viết chương trình nhập k và n số nguyên từ bàn phím. a. Đếm trong dãy có bao nhiêu số bằng k. b. Tìm số nguyên tố lớn nhất của dãy.

uses crt;
var a:array[1..234]of longint;
n,max,i,k,d:longint;
begin
clrscr;
write('nhap n');
readln(n);
write('nhap k');
readln(k);
i:=0;
d:=0;
repeat
begin
i:=i+1;
write('a[',i,']=');
readln(a[i]);
if a[i]=k then d:=d+1;
end;
until
i=n;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln('co',d,'= ',k);
writeln('gia tri lon nhat',max);
readln
end.

Program baitap;

Uses crt;

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

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

Begin

Clrscr;

Write('k='); Readln(k);

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

dem:=0;

For i:=1 to n do 

     Begin

     Write('Nhap phan tu thu ',i);

     Readln(A[i]);

     If A[i]=0 then dem:=dem+1;

     End;

max:=A[i];

For i:=2 to n do 

     If A[i]>max then max:=A[i];

Writeln('Co ',dem,' so trong day bang ',k);

Writeln('So nguyen lon nhat tron day:',max);

Readln

End.