Câu 1: khai báo mảng a gồm n phần tử số nguyên (n <=100) mỗi phần tử có giá trị tuyệt đối <= 200. hãy nhập mãng và xuất mãng. câu 2: với mãng vừa nhập ở câu 1 em hãy viết câu lệnh thực hiện các công việc sau: 1. tính tổng các số chẵn có trong mãng A 2. tính tổng các số chia hết cho số K (K là số nguyên dương cho trước) có trong mãng A 3.in ra màn hình các số lẻ có trong mãng A
c1
uses crt;
var a: array[1..100] of integer;
i,n: integer;
begin
clrscr;
Write(‘nhap n: ‘);
readln(n);
while n>100 do
begin
Write(‘nhap lai n: ‘);
readln(n);
end;
for i:=1 to n do
begin
write(‘nhap so thu ‘,i,’: ‘);
readln(a[i]);
while abs(a[i])>200 do
begin
write(‘nhap lai so thu ‘,i,’: ‘);
readln(a[i]);
end;
end;
write(‘mang vua nhap la: ‘);
for i:=1 to n do write(a[i]:3);
readln;
end.
BT1:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n do Read(A[i]);
For i:=1 to n do Write(A[i],’ ‘);
Readln
End.
BT2:
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,sc,s,k: longint;
Begin
Clrscr;
Write(‘Nhap n,k: ‘); Readln(n,k);
For i:=1 to n do
Begin
Read(A[i]);
If A[i] mod 2 = 0 then sc:=sc+A[i];
If A[i] mod k = 0 then s:=s+A[i];
End;
Writeln(‘1. ‘,sc);
Writeln(‘2. ‘,s);
Write(‘3. ‘);
For i:=1 to n do
If A[i] mod 2 <> 0 then Write(A[i],’ ‘);
Readln
End.