Question

Câu 1: Cho đoạn chương trình:

S:=0;

For i:=1 to 5 do S:=S+1;

a) Cho biết giá trị của S

b) Đoạn chương trình trên thực hiện bao nhiêu lần lặp

Câu 2:

Viết chương trình bằng ngôn ngữ lập trình pascal thực hiện công việc nhập 20 phần tử có giá trị nguyên cho mảng B(1 chiều, nhập từ bàn phím)

a) Tính tổng các phần tử có giá trị dương trong mảng

b) Tính tổng các phần tử có giá trị lẻ trong mảng

*Giúp mình nha, sắp thi rùi

Answer 1

câu 1 a) S=5

b)Doan chuong trinh thuc hien 5 vong lap

câu 2:

program tinhtong;

uses crt;

var B:array [1..20] of integer;

le,tong,i:integer;

begin

writeln ('nhap gia tri cua mang B');

for i:=1 to 20 do

readln (B[i]);

for i:=1 to 20 do

begin

if A[i] mod 2=1 then le:=le+A[i];

if A[i]>0 then tong:=tong+A[i];

end;

writeln ('tong cac so duong la',tong);

writeln ('tong cac so le la',le);

readln

end.