Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
V.Phương

Viết chương trình tính tổng các số lẻ trong mảng a gồm 10 phần tử. - Tìm ra số lẻ trong [ 1..10 ] - Tính tổng các phần tử trong mảng đó

Nguyễn Lê Phước Thịnh
13 tháng 5 2021 lúc 16:58

uses crt;

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

i,t,t1:integer;

begin

clrscr;

for i:=1 to 10 do 

  begin

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

end;

t:=0;

for i:=1 to 10 do 

if a[i] mod 2<>0 then 

begin

write(a[i]:4);

t:=t+a[i];

end;

writeln;

writeln('Tong cac so le la: ',t);

t1:=0;

for i:=1 to 10 do

t1:=t1+a[i];

writeln('Tong cac phan tu cua mang la: ',t1);

readln;

end.


Các câu hỏi tương tự
my trần
Xem chi tiết
Phạm Công Ngọc Quốc
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Lương Trần Phương Linh
Xem chi tiết
Nguyễn Bảo Nhi
Xem chi tiết
Denmak Blues
Xem chi tiết
Minh Duy
Xem chi tiết
Vochehoang
Xem chi tiết
phạm hải nam
Xem chi tiết