Nhập mảng 1 chiều gồm 50 số nguyên dương tính tổng các số lẻ Mn giúp mk vs ạ Thank mn
2 câu trả lời
uses crt;
var a:array[1..50]of longint;
i,s:longint;
begin
clrscr;
for i:=1 to 50 do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
if a[i] mod 2=1 then inc(s,a[i]);
end;
write('Tong cac so le: ',s);
readln
end.
program im_14424;
uses crt;
var A: array[1..50] of integer;
S: integer;
i: byte;
begin
clrscr;
S:=0;
for i:=1 to 50 do
begin
write('Nhap vao cac phan tu: ');
readln(A[i]);
if (A[i]>0) and (A[i] mod 2 <> 0) then S:=S+A[i];
end;
write('Tong cac so le la: ',S);
readln
end.
