Quảng cáo
2 câu trả lời 949
program tongcacsole;
uses crt;
var i, n:integer; s: longint;
a: array[1..100] of integer;
begin
clrscr;
write ( ' hay nhap so phan tu cua day so, n= '); readln(n);
writeln( ' nhap cac phan tu cua day so: ');
for i := 1 to n do
begin write ( ' a[ ' , i , ' ] = ' ); readln(a[ i] );
end;
for i := 1 to n do if a[ i] mod 2 = 1 then s := s + i;
writeln ( ' tong cac so le: ' , s); readln;
end.
Chi Pham
· 4 năm trước
Cảm ơn bạn rất nhiều
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK45584
-
Đã trả lời bởi chuyên gia
29017 -
Hỏi từ APP VIETJACK28522
Gửi báo cáo thành công!

