Bài 17: Chương trình con và phân loại

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

mọi người giúp mình vs mình cần gấp ạ

Bài 1: Viết chương trình nhập vào 1 mảng gồm N số nguyên (0<N<=300). Tính tổng các phần tử lẻ ở vị trí chẵn

Bài 2: Viết chương trình tính tổng 2 số nguyên nhập từ bàn phím. Trong đó có sử dụng chương trình con tính tôgr 2 số

Nguyễn Lê Phước Thịnh
3 tháng 7 2020 lúc 19:36

Bài 1:

uses crt;

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

n,i,t:integer;

begin

clrscr;

write('Nhap so phan tu:'); readln(n);

for i:=1 to n do

begin

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

end;

t:=0;

for i:=1 to n do

if (a[i] mod 2<>0) and (i mod 2=0) then t:=t+a[i];

writeln('Tong cac phan tu le o vi tri chan la: ',t);

readln;

end.

Bài 2:

uses crt;

var a,b:integer;

{---------------------chuong-trinh-con--------------------------}

function tong(var x,y:integer):integer;

begin

tong:=x+y;

end;

{-------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('Nhap so thu nhat:'); readln(a);

write('Nhap so thu hai:'); readln(a);

writeln('Tong cua hai so la: ',tong(a,b));

readln;

end.


Các câu hỏi tương tự
Thúy Hà
Xem chi tiết
Đặng Thị Kiều Oanh
Xem chi tiết
Thúy Hà
Xem chi tiết
Đạt Trần
Xem chi tiết
hà nội 123
Xem chi tiết
Tuấn Lê
Xem chi tiết
Bảo Trâm
Xem chi tiết
Tuấn Lê
Xem chi tiết
Trong nhóm zalo
Xem chi tiết