Question

Sử dụng ngôn ngữ lập trình pascal, viết ct nhập mảng 1 chiều A gồm n phần tử (n<=100) kiểu nguyên và thực hiện công việc sau

a, đếm và tính tổng các số chẵn trong mảng

b, nhập vào số nguyên K, tìm xem K có trong dãy hay không? Nếu có thì đưa ra các vị trí của nó trong dãy, nếu không thì thông báo" không tìm thấy"

Answer 1

uses crt;
var a,vtk:array[1..100]of integer;
n,i,dem,t,k,kt,dem1:integer;
begin
clrscr;
write('n='); readln(n);
if (0<n) and (n<=100) then
begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------cau-a---------------------}
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('so luong so chan trong mang la: ',dem);
writeln('tong cac so chan trong mang la: ',t);
{-------------------------cau-b----------------------}
write('k='); readln(k);
kt:=0;
dem1:=0;
for i:=1 to n do
if a[i]=k then
begin
kt:=1;
inc(dem1);
vtk[dem1]:=i;
end;
if kt=0 then writeln('khong tim thay')
else begin
writeln('cac vi tri cua ',k,' trong day la: ');
for i:=1 to dem1 do
write(vtk[i]:4);
end;
end
else writeln('vui long nhap lai');
readln;
end.