Question

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ố

Answer 1

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.