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.