Viết chương trình nhập vào từ bàn phím dễ n số và in ra tổng trong các giải về nhập

Tính và in ra tổng các số lẻ (dương)
Program Tinh_tong_so_le;
Uses CRT;
Var i,n,S:integer;
sl:boolean;
Begin
Clrscr;
Write(‘Nhap so n:’);Readln(n);
sl:=True;
For i:=1 to n do
Begin
If sl=True then S:=S+i;
sl:= not True;
End;
Writeln(‘Tong cua n so le la:’, S);
Readln;
End.

– In ra phần tử lớn nhất và nhỏ nhất
var a:array[1..100] of integer;
i,k,n:integer; 
begin 
readln(n); k:=0; 
for i:=1 to n do begin 
readln(a[i]); 
if a[i]>k then k:=a[i]; 
end; 
writeln(k); 
for i:=1 to n do if a[i]=k then write(i,#32); 
readln 
end.