Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lê Ngọc Minh

Viết thuật toán tính tổng các số lẻ trong dãy số N cho trước

Nguyễn Phạm Thanh Nga
18 tháng 11 2018 lúc 20:04

type mang=array[1..100] of byte;

var a:mang;

n,i:byte;

procedure nhap;

begin

for i:=1 to n do

begin

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

end;

end;

procedure tinh;

var s:longint;

begin s:=0;

for i:=1 to n do

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

write('tong cac so le la:',s);

end;

begin

write('nhap n:');readln(n);

nhap;

tinh;

readln;

end.


Các câu hỏi tương tự
Hoàng Hải Yến
Xem chi tiết
Hoàng Hải Yến
Xem chi tiết
linh khánh
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Kisaragi Saya
Xem chi tiết
Nhung Ngô
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Nguyễn Gia Hân
Xem chi tiết
Trương Mai Bảo Hân
Xem chi tiết