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

function tong(n:integer):integer;

var t,i:integer;

begin

t:=0;

for i:=1 to n do 

 if i mod 2=0 then t:=t+i;

tong:=t;

end;

function max(a,b:integer):integer;

begin

max:=a;

if max<b then max:=b;

end;

function ktra(a,b,c:integer):boolean;

var kt:boolean;

begin

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then kt:=true

else kt:=false;

if kt=true then ktra:=true

else ktra:=false;

end;

function ktra(n:integer):boolean;

var kt:boolean;

begin

if trunc(sqrt(n))=sqrt(n) then kt:=true

else kt:=false;

if kt=true then ktra:=true

else ktra:=false;

end;

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); 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 then t:=t+a[i];

writeln(t);

readln;

end.

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); 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 then t:=t+a[i];

writeln(t);

readln;

end.

Uses crt;

Const fi='dl.int'

Var f1:text;

A:array[1..100] of integer;

I,n,t: integer;

Begin

Clrscr;

Assign(f1,fi); reset(f1);

Readln(f1,n);

For i:=1 to n do

Read(f1,a[i]);

T:=0;

For i:=1 to n do

T:=t+a[i];

Writeln(t);

Close(f1);

Readln;

End.

chữ đẹp quá :))