Question

Viết chương trình nhập mảng một chiều có độ dài tối đa 100 phần tử mảng số nguyên. Đưa ra màn hình tổng số lẻ trong mảng vừa nhập?

Answer 1

uses crt;

var a:array[1..100]of integer;

n,i,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln(t);

readln;

end.