Xuất ra màn hình tổng giá trị các số chẵn của dãy. nguyên gồm N số.[r]
(1)ÔN TẬP HK2 TIN 8 Câu Viết chương trình tính TỔNG dãy số
ngun A gồm N phần tử
Câu Viết chương trình tính TÍCH dãy số ngun A gồm N phần tử
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
Begin
Write(‘Nhap so thu ‘, i); Readln(A[i]);
End; S := 0;
For i:=1 to N 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
Begin
Write(‘Nhap so thu ‘, i); Readln(A[i]);
End; P := 1;
For i:=1 to N P := P * A[i];
Writeln(‘Tich gia tri cua day la ’, P:5:1); Readln;
End
(2)nguyên gồm N số Xuất hình tổng giá trị số chẵn dãy.
nguyên gồm N số Xuất hình số lượng số chẵn dãy số
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
Begin
Write(‘Nhap so thu ‘, i); Readln(A[i]);
End;
Writeln(‘Day so la’);
For i:=1 to N write(A[i], ‘ ’); S := 0;
For i:=1 to N
If A[i] mod = 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
Begin
Write(‘Nhap so thu ‘, i); Readln(A[i]);
End;
Writeln(‘Day so la’);
For i:=1 to N write(A[i], ‘ ’); dem := 0;
For i:=1 to N
If A[i] mod = then dem := dem + 1; Writeln(‘Day so co ’, dem, ‘ so le’);