Câu 1: viết câu lệnh
1. Khai báo mảng A gồm N ptử số nguyên(N<=100) mỗi phần tử có gtri tuyệt đối<=200
2. Nhập mảng
3. Xuất mảng vừa nhập
Câu 2: với mảng vừa nhập ở câu 1, e hãy viết câu lệnh thực hiện 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 cho trước ) có trong mảng A.
3. In ra màn hình các số lẻ có trong mảng A.
Giúp mk vs mk cần gấp lắm!!
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.
Câu 1:
Uses crt;
Var A:Array[1..100] of integer;
i, n: integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
For i:=1 to n do
Begin
Write(‘Nhap A[‘,i,’]: ‘);
Readln(A[i]);
End;
Readln
End.
Câu 2:
Uses crt;
Var A:Array[1..100] of integer;
i, n, tc, tch, dl, k: integer;
Begin
Clrscr;
Write(‘Nhap n = ‘); readln(n);
Write(‘Nhap k = ‘); readln(k);
For i:=1 to n do
Begin
Write(‘Nhap A[‘,i,’]: ‘);
Readln(A[i]);
End;
tc:=0; tch:=0; dl:=0;
For i:=1 to n do if a[i] mod 2 = 0 then inc(tc, a[i]);
For i:=1 to n do if a[i] mod k = 0 then inc(tch, a[i]);
For i:=1 to n do if a[i] mod 2 = 1 then inc(dl);
Writeln(‘Tong cac so chan la: ‘,tc:4:2);
Writeln(‘Tong cac so chia het cho so ‘,k,’ la: ‘,tch:4:2);
Writeln(‘Co ‘,dl,’ so le trong mang’);
readln
End.