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.
