Câu 1: Nêu cú pháp hoạt động của câu lệnh lặp While…do và câu lệnh for…do?
Câu 2: Viết chương trình có sử dụng biến mảng để nhập vào một dãy số nguyên gồm N số. Sau đó in ra màn hình tổng các phần tử dương của dãy số đó? Với số N cũng được nhập từ bàn phím ?
Câu 3: Viết chương trình có sử dụng biến mảng để nhập vào một dãy số nguyên gồm N số. Sau đó in ra màn hình tổng các phần tử chẵn của dãy số đó? Với số N cũng đieì nhập từ bàn phím?
câu 3
program dem;
uses crt;
var a,i,n:integer;
s:array[1..1000] of integer;
begin
clrscr;
write(‘nhap n ‘);
read(n);
for i:=0 to n do
begin
write(‘s[‘,i,’] =’);
read(s[ i ]);
if s[ i ] mod 2 = 0 then a:=a+s[ i ];
end;
write(‘tong cac phan tu so chan la : ‘,a);
readln;
end.