[r]
(1)NỘI DUNG ÔN TẬP
SỬ DỤNG CÂU LỆNH LẶP TRONG CHƯƠNG TRÌNH Tin – KT1T HK2 (Thực hành) – Năm học: 2019-2020
1. Tính tổng dãy số nguyên A gồm N phần tử Program KT1T;
Uses crt;
Var A : array [1 100] of integer; N, i, S : integer;
Begin
Clrscr;
Write(‘Nhap N:’); readln(N); nhập N For i := to N nhập dãy số nguyên A Begin
write(‘A[’, i, ‘]=’); readln(A[i]); end;
S := 0; tính tổng dãy số A For i := to N S := S + A[i];
Writeln(‘Tong day so A la ’, S); Readln;
(2)2. Tính tích dãy số nguyên A gồm N phần tử Program KT1T;
Uses crt;
Var A : array [1 100] of integer; N, i : integer;
P : real; Begin
Clrscr;
Write(‘Nhap N:’); readln(N); nhập N For i := to N nhập dãy số nguyên A Begin
write(‘A[’, i, ‘]=’); readln(A[i]); end;
P := 1; tính tổng dãy số A For i := to N P := P * A[i];
Writeln(‘Tich day so A la ’, P); Readln;