uses crt;

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

i,dem,t:integer;

begin

clrscr;

for i:=1 to 6 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

t:=0;

for i:=1 to 6 do 

if a[i]>0 then 

begin

inc(dem);

t:=t+a[i];

end;

writeln('So phan tu duong la: ',dem);

writeln('Tong cac phan tu duong la: ',t);

readln;

end.

program hoc24;

uses crt;

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

i,d,s: longint;

begin

clrscr;

for i:=1 to 6 do readln(a[i]);

s:=0;

for i:=1 to n do

if a[i]>0 then

begin

inc(d);

s:=s+a[i];

end;

writeln(d,s);

readln

end.

bài chưa chạy thử bạn chạy lại xem nếu k đc thì bảo

uses crt;

var st:string;

vt:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

vt:=pos('love',st);

while vt<>0 do 

  begin

delete(st,vt,4);

end;

writeln(st);

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;

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.

program Angus;
uses crt;
var 
    x1,x2,x3,y1,y2,y3,s,p,n,a,b,c :real;
begin
        clrscr;
        write('Nhập tọa độ điểm A(x1,y1)= '); readln(x1,y1);
        write('Nhập tọa độ điểm B(x2,y2)= '); readln(x2,y2);
        write('Nhập tọa độ điểm C(x3,y3)= '); readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a+b>c) and (b+c>a) and (c+a>b) then
        begin
                p:=a+b+c;
                n:=p/2;
                s:=sqrt(n*(n-a)*(n-b)*(n-c));
        writeln('Chu vi = ', p:0:2);
        writeln('Diện tích = ',s:0:2);
        end
else writeln('các điểm bạn vừa nhập không tạo thành 1 tam giác :> ');
readln

Uses crt;

Var st: string;

I,d,dem:integer;

Begin

Clrscr;

Write('nhap xau:'); readln(st);

D:=length(st);

Dem:=0;

For i:=1 to d do

If (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem);

Writeln(dem);

Readln;

End.

uses crt;

const fi='ketqua.out';

var f1:text;

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

i,n,min:integer;

begin

clrscr;

assign(f1,fi); rewrite(f1);

write('Nhap n='); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

min:=a[1];

for i:=1 to n do 

  if min>a[i] then min:=a[i];

writeln(f1,min);

close(f1);

readln;

end.