câu 1: viết chương trình nhập vào mảng A gồm n phần tử ( n phần tử nhập từ bàn phím ) a: in ra các số lẻ b:in ra tổng số phần tử chẵn câu 2: viết chương trình nhập vào mảng A gồm n phần tử với giá trị k a: đếm các số trong mảng A bằng k; b: in ra các số là bội của k; c: in ra các số âm

Program bt;

Uses crt;

Var a:array[1..1000] of integer;

       N,i,tong:integer;

Begin

 Clrscr;

Writeln('nhap n:=');

Readln(n);

For i:=1 to n do

     Begin

               Writeln('nhap a[',i,']:=');

               Readln(a[i]);

   End;

Tong:=0;

For i:=1 to n do

If (a[i] mod 2 = 0) then write(a[i])

Else tong:=tong+a[i];

Writeln('tong chan :=',tong);

Readln

End.

Câu 1 :

program cau1;
uses crt;
var a : array[1..100] of integer;
n,i,t : integer;
begin clrscr;
t:=0;
write('Nhap so n :'); readln(n);
for i:=1 to n do  begin
write('Nhap a[',i,']='); readln(a[i]); end;
writeln('Cac phan tu le cua mang :');
for i:=1 to n do if a[i] mod 2 = 1 then write(a[i]:3);
writeln;
for i:=1 to n do if a[i] mod 2 = 0 then t:=t+a[i];
writeln('Tong cac phan tu chan cua mang la :', t);
readln
end.

Câu 2 :

program cau2;
uses crt;
var a : array[1..100] of integer;
n,i,k,dem : integer;
begin clrscr;
dem:=0;
write('Nhap so n :'); readln(n);
for i:=1 to n do  begin
write('Nhap a[',i,']='); readln(a[i]); end;
write('Nhap so k :') ; readln(k);
for i:=1 to n do if a[i] = k then dem:=dem+1;
writeln('Co ',dem,' gia tri bang ',k,' trong mang');
writeln('Cac phan tu la boi cua ',k,' la :');
for i:=1 to n do if a[i] mod k = 0 then write(a[i]:4);
writeln;
writeln('Cac so am trong mang la :');
for i:=1 to n do if a[i] < 0 then write(a[i]:3);
readln
end.