2020)

[r]

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. 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;