Giúp mình với ạ Viết chương trình tính tổng các số chia hết cho 2 ở vị trí chẳn trong mảng A gồm N số nguyên dương a1, a2, …, aN. Thoã N <200. Và cho biết tốn bao nhiêu dòng lệnh để cho ra kết quả với vòng lặp for-do và while-do
1 câu trả lời
program sksk;
uses crt;
var a: array[1..200] of integer;
i, n, s: integer;
begin
clrscr;
write(' nhap so phan tu trong mang :'); readln( n );
s := 0;
for i := 1 to n do
begin
write(' nhap phan tu thu ', i ,':'); readln( a[i]);
if ((i mod 2 = 0) and (a[i] mod 2= 0 )) then s := s + a[i];
end;
writeln(' tong ca so chia het cho 2 o vi tri chan la :', s );
readln
end.
Câu hỏi trong lớp
Xem thêm
