Bài 1: Nhập từ bàn phím dãy số N số ( n<=100 ) ( a1....an). Viết chương trình nhập vào và tính tổng các số lẻ nhỏ hơn 100 trong dãy: Yêu cầu xác định bài toán, viết chương trình Bài 2: viết chương trình nhập vào mảng 1 chiều gồm 20 phân tử, đếm xem trong mảng có bao nhiêu phần tử bằng 10 -mn giúp em với. Em cảm ơn!!
Câu 1:
Program tinh_tong ;
Uses crt ;
Var S,i,n : integer ;
A: array [1..100] of integer ;
Begin
Write(‘nhap n=’);
Readln (n);
For i:=1 to n do
Begin
Write (‘nhap phan tu thu ‘,i,’ =’);
Readln (A[i]);
end;
S:=0;
For i:=1 to n do
If ((A[i] mod 2=1) and (A[i]<100)) then
S:=S+ A[i];
Writeln(‘tong cac so le nho hon 100 trong day la:’, S);
Readln
End.
Câu 2:
Program dem_so;
Uses crt;
Var A:array[1..20] of integer;
i, n,d: integer;
Begin
Write(‘nhap so luong phan tu cua day, n= ‘);
Readln(n);
For i :=1 to n do
Begin
Write (‘nhap phan tu thu ‘,i, ‘=’);
Readln(A[i]);
end;
d:=0;
For i :=1 to n do
If A[i]= 10 then
d:=d+1;
Writeln (‘so so phan tu bang 10 trong mang la:’, d);
Readln
End.