Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (58.13 KB, 2 trang )
<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>
<b>ngun A gồm N phần tử</b>
<b>Câu 2. Viết chương trình tính TÍCH dãy số </b>
<b>nguyên A gồm N phần tử</b>
Program ontap1;
Uses crt;
Var N, i, S: integer;
A : array [1..100] of integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N);
For i:=1 to N do
Begin
Write(‘Nhap so thu ‘, i);
Readln(A[i]);
End;
S := 0;
For i:=1 to N do S := S + A[i];
Writeln(‘Tong gia tri cua day la ’, S);
Readln;
End.
Program ontap2;
Uses crt;
Var N, i: integer;
P : real;
A : array [1..100] of integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N);
For i:=1 to N do
Begin
Write(‘Nhap so thu ‘, i);
Readln(A[i]);
End;
P := 1;
For i:=1 to N do P := P * A[i];
Writeln(‘Tich gia tri cua day la ’, P:5:1);
End.
<b>nguyên gồm N số. Xuất ra màn hình tổng giá </b>
<b>trị các số chẵn của dãy.</b>
<b>nguyên gồm N số. Xuất ra màn hình số lượng </b>
<b>số chẵn trong dãy số</b>
Program ontap3;
Uses crt;
Var N, i, S: integer;
A : array [1..100] of integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N);
For i:=1 to N do
Begin
Write(‘Nhap so thu ‘, i);
Readln(A[i]);
End;
Writeln(‘Day so la’);
For i:=1 to N do write(A[i], ‘ ’);
S := 0;
For i:=1 to N do
If A[i] mod 2 = 0 then S := S + A[i];
Writeln(‘Tong gia tri cac so chan la ’, S);
Readln;
End.
Program ontap4;
Uses crt;
Var N, i, dem: integer;
A : array [1..100] of integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N);
For i:=1 to N do
Begin
Write(‘Nhap so thu ‘, i);
Readln(A[i]);
End;
Writeln(‘Day so la’);
For i:=1 to N do write(A[i], ‘ ’);
dem := 0;
For i:=1 to N do
If A[i] mod 2 = 0 then dem := dem + 1;
Writeln(‘Day so co ’, dem, ‘ so le’);