program sochan;
uses crt;
var n,i:integer;
b: array[1..10] of integer;
begin
clrscr;
repeat
write('So cac so cua mang: ');readln(n);
if (n > 10) or (n < 1) then
begin
write('So nhap vao khong hop le. Hay nhap lai');
delay(2000);
clrscr;
end;
until (n <= 10) and (n > 0);
for i:= 1 to n do
begin
write('So thu ',i,': ');
readln(b[i]);
end;
writeln('Cac so chan cua mang la:');
for i:= 1 to n do
if (b[i] mod 2 = 0) then
write(b[i],' ');
readln
end.

program andanh;
uses crt;
var day, a: string;
i, tong: integer;
begin
clrscr;
repeat
write('Nhap day gom 100 ky tu: ');
readln(day);
if length(day) < 100 then
begin
write('Day tren nho hon 100. Hay nhap lai');
delay(2000);
clrscr;
end
else if length(day) > 100 then
begin
write('Day tren lon hon 100. Hay nhap lai');
delay(2000);
clrscr;
end;
until length(day) = 100;
tong:= 0;
for i:= 1 to 100 do
begin
a:= upcase(day[i]);
if day[i] <> a then tong:= tong + 1;
end;
tong:= 100 - tong;
write('Cac ki tu hoa cua day la: ',tong);
readln
end.

Program hotrotinhoc;

var s: string;

i,d: byte;

begin

write('Nhap day ki tu :'); readln(s);

d:=0;

for i:=1 to length(s) do

if s[i] in ['A'..'Z'] then inc(d);

write('Co ',d,' ki tu hoa trong day ki tu vua nhap');

readln

end.

Program hotrotinhoc;

var n,i: byte;

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

begin

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

for i:=1 to n do

begin

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

end;

readln

end.

Program hotrotinhoc;

var d,n,i: byte;

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

begin

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

d:=0;

for i:=1 to n do

begin

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

if a[i] mod 2=0 then inc(d);

end;

write('Mang vua nhap la :');

for i:=1 to n do write(a[i],' ');

writeln;

write('So phan tu chan la : ',d);

readln

end.

Bài 1:

uses crt;

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

n,i,max,j,tam,t:integer;

tbc:real;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{------------------------------cau-a---------------------------}

for i:=1 to n do

write(a[i]:4);

{-----------------------------cau-b-----------------------------}

writeln;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('so lon nhat cua day la: ',max);

{----------------------------cau-c----------------------------}

Writeln('day khong giam cua day so la: ');

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>=a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to n do

write(a[i]:4);

{-------------------------------cau-d------------------------------}

writeln;

t:=0;

for i:=1 to n do

t:=t+a[i];

tbc:=t/n;

writeln('gia tri trung binh cua day so la: ',tbc:4:2);

readln;

end.

Bài 1:

Program hotrotinhoc;

var a,b,c,d,max: integer;

begin

write('Nhap a,b,c,d :'); readln(a,b,c,d);

max:=0;

if a>max then max:=a;

if b>max then max:=b;

if c>max then max:=c;

if d>max then max:=d;

write(max);

readln

end.

Bài 2:

Program hotrotinhoc;

var a,b,c : integer;

begin

write('Nhap 3 canh a,b,c'); readln(a,b,c);

if (a+b>c) or (a+c>b) or (b+c>a) then write('Thoa man') else ('Khong thoa man trong tung truong hop tuong ung');

readln

end.

Bài 4: Câu hỏi của Quỳnh Như - Tin học 8 | Học trực tuyến

Bài 5:

Program hotrotinhoc;

var a,n: integer;

t: longint;

begin

Write('Nhap a,n :'); readln(a,n);

t:=1;

for i:=1 to n do

t:=t*a;

write(t);

readln

end.

uses crt;

var b:array[1..100]of real;

i,m:integer;

begin

clrscr;

write('m='); readln(m);

if (m>0) and (m<=100) then

begin

for i:=1 to m do

begin

write('b[',i,']='); readln(b[i]);

end;

{--------------------------------------------------}

for i:=1 to m do

if b[i]>3,5 then write(b[i]:4);

end

else writeln('vui long nhap lai m');

readln;

end.

var c,a,s:real;
begin
readln(c);
a:=c/4;
s:=a*a;
write(s:5:2);
end.

hình chữ nhật chứ có phải hình vuông đâu

var n,i,max,sa,sd,sk,j,t:longint;
b:array[1..10000] of longint;
begin
write('Nhap n '); readln(n);
write('Nhap mang B ');
for i:=1 to n do
read(b[i]);
{---Cau a---}
max:=0;
for i:=1 to n do
if b[i]>max then max:=b[i];
writeln('So lon nhat ',max);
{---Cau b---}
sa:=0;
sd:=0;
sk:=0;
for i:=1 to n do
begin if b[i]<0 then inc(sa);
if b[i]>0 then inc(sd);
if b[i]=0 then inc(sk); end;
writeln('So am ',sa);
writeln('So duong ',sd);
writeln('So khong ',sk);
{---Cau c---}
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then begin t:=b[i];
b[i]:=b[j];
b[j]:=t; end;
write('Mang sau khi sap xep ');
for i:=1 to n do
write(b[i],' ');
end.