Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A
Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A
By aikhanh
By aikhanh
Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A
var a:array[1..100] of integer;
N, i: byte;
S: integer;
Begin
Write(‘nhap n = ‘); readln(n);
S:=0;
For i:=1 to n do
Begin
Write(‘nhap a[‘,i,’] = ‘);
readln(a[i]);
If a[i] mod i <> 0 then s:=s+a[i];
End;
Write(‘tong so le: ‘, s);
Readln
End.