Bai tap mang 1 chieu

1. Nhập vào 1 dãy số nguyên gồm N phần tử
(N <= 100)
a. Đưa ra các số âm có trong dãy và vị trí của chúng
Dãy A gồm 5 phần tử: 2 15 -7 4 -20
Cac so am la:
-7 vi tri la: 3
-20 vi tri la: 5

BÀI GIẢI:
USES CRT;
VAR A: ARRAY[1..100] OF INTEGER;
I,N: INTEGER;
BEGIN
WRITELN(`NHAP SL PHAN TU: `);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN(`NHAP SO THU: `,I,` `);
READLN(A[I]);
END;
WRITELN(`CAC SO AM LA: `);
FOR I:=1 TO N DO
IF A[I] < 0 THEN
BEGIN
WRITE(A[I]:4);
WRITELN(` VI TRI LA: `,I);
END;
READLN
END.


b. Đếm và tính tổng các số lẻ có trong dãy
Dãy A gồm 6 phần tử: 2 5 8 7 12 3
Co 3 so le
Tong la: 15

BÀI GIẢI:
USES CRT;
VAR A: ARRAY[1..100] OF INTEGER;
I,N,DEM,S: INTEGER;
BEGIN
WRITELN(`NHAP SL PHAN TU: `);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN(`NHAP SO THU: `,I,` `);
READLN(A[I]);
END;
FOR I:=1 TO N DO
IF A[I] MOD 2 <> 0 THEN
BEGIN
DEM:=DEM+1;
S:=S+A[I];
END;
WRITELN(`CO `,DEM,` SO LE`);
WRITELN(`TONG LA: `,S);
READLN
END.
c. Tính TB cộng các bội số của 3 và đưa ra các bội số đó
vd: Dãy gồm 5 phần tử: 10 6 4 3 13
Cac boi so cua 3 la:
3
TB Cong la: 4.5

BÀI GIẢI:
USES CRT;
VAR A: ARRAY[1..100] OF INTEGER;
I,N,DEM,S: INTEGER;
TBC: REAL;
BEGIN
WRITELN(`NHAP SL PHAN TU: `);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN(`NHAP SO THU: `,I,` `);
READLN(A[I]);
END;

WRITELN(`CAC BOI SO CUA 3 LA: `);
FOR I:=1 TO N DO
IF A[I] MOD 3 = 0 THEN
BEGIN
WRITE(A[I]:4);
DEM:=DEM+1;
S:=S+A[I];
END;
WRITELN; {XUONG DONG}
TBC:= S/DEM;
WRITELN(`TB CONG LA: `,TBC:6:1);
READLN
END.
d. Nhập vào số nguyên K, tìm xem K có trong dãy 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”.
Vd: Dãy A gồm 5 phần tử: 1 5 6 12 5
Nhap so can tim: 5
( Cac vi tri cua 5 la: 2 5

BÀI GIẢI:
USES CRT;
VAR A: ARRAY[1..100] OF INTEGER;
I,N,DEM,K: INTEGER;
BEGIN
WRITELN(`NHAP SL PHAN TU: `);
READLN(N);
FOR I:=1 TO N DO
BEGIN
WRITELN(`NHAP SO THU: `,I,` `);
READLN(A[I]);
END;


WRITE(`NHAP SO CAN TIM: `);
READLN(K);
WRITELN(`CAC VI TRI CUA `,K,` LA: `);
FOR I:=1 TO N DO
IF A[I] = K THEN
BEGIN
WRITE(I:4);
DEM:=DEM+1;
END;
WRITELN; {XUONG DONG}
IF DEM = 0 THEN WRITELN(`KHONG TIM THAY VI TRI NAO`);
READLN
END.
- Yêu cầu: Chạy lại chương trình với dãy A như sau: 12 4 6 9
Nhập số cần tìm