NỘI DUNG ÔN TẬP KIỂM TRA HỌC KỲ II NĂM HỌC 2019-2020

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]

ÔN TẬP HK2 TIN 8

Câu 1 Viết chương trình tính TỔNG dãy số

nguyên A gồm N phần tử

Câu 2 Viết chương trình tính TÍCH dãy số nguyên 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 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); Readln;

End

Câu 3 Viết chương trình nhập, xuất dãy số Câu 4 Viết chương trình nhập, xuất dãy số

nguyên gồm N số 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ố Xuất ra màn hình số lượng

số chẵn trong 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 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’);

Readln;

End