Lập trình đơn giản

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

Viết chương trình pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số tự nhiên. Số phần tử mảng được nhấp từ bàn phím. In ra màn hình tổng các số lẻ trong mảng.

Minh Thư
20 tháng 6 2018 lúc 10:58

program Mang_le;

uses crt;

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

i,n,S:integer;

begin

writeln('Nhap vao so phan tu:');

readln(n);

for i:=1 to n do

begin

writeln('a[',i,']=');

readln(a[i]);

end;

for i:=1 to n do if a[i] mod 2=1 then S:=S+a[i];

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

readln

end.


Các câu hỏi tương tự
Yeu DUong nhat
Xem chi tiết
duyy
Xem chi tiết
Hoài Right
Xem chi tiết
Nguyễn Linh
Xem chi tiết
Lê Xuân Hoa
Xem chi tiết
Nhân lê
Xem chi tiết
Tích Nguyệt
Xem chi tiết
Nguyễn Công Vinh
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết