Question

1.Viết chương trình nhập vào 1 dãy gồm n phần tử và in tổng các số lẻ ra màn hình

2.Viết chương trình cho phép nhập n số vào bàn phím và cho biết số nhỏ nhất trong các số vừa nhập ở vị trí thứ mấy

Answer 1

1

Function TinhTong(A:Arr100; N:integer):integer;
Var i,S: integer;
Begin
S:=0;
For i:=1 to N do

if n mod i=0 then

begin
S:=S+A[i];
TinhTong:=S;

end;

writeln('Tong: ',TinhTong(A,N));

readln;

end.

2

Uses Crt;
Var i,n,m:integer;
a:array[1..100] of integer;
Begin
Clrscr;
Write('Nhap n = ');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(a[i]);
End;
m:=A[1];
For i:=2 to n do If A[i]>m then m:=A[i];
Writeln(m);
Readln;
End.

mình không chắc nha bạn kiểm tra thử xem