Question

câu 1:viết chương trình con nhập vào 2 số nguyên dương x,y.tính hiệu 2 số.

câu 2: viết chương trình nhập từ bàn phím mảng A gồm n phần tử (n<50) là các số nguyên, đưa ra màn hình phần tử có giá trị nhỏ nhất nhưng nó ở vị trí lẻ trong dãy A.

câu 3:viết chương trình nhập từ bàn phím mảng A gồm n phần tử (n<50) là các số nguyên, đưa ra màn hình phần tử

có giá trị nhỏ nhất nhưng ở vị trí chẵn trong dãy A.

câu 4: nhập vào 1 xâu đếm số lần xuất hiện chữ tin trong xâu đó

Answer 1

Câu 1:

uses crt;
var x,y,h:integer;
{------------------chuong-trinh-con------------------}
procedure nhap(var a,b:integer);
begin
write('x='); readln(a);
write('y='); readln(b);
end;
{------------------chuong-trinh-chinh------------------}
begin
clrscr;
nhap(x,y);
h:=x-y;
writeln('Hieu cua hai so la: ',h);
readln;
end.

Câu 2:

uses crt;
var a,b:array[1..49]of integer;
n,i,dem,min:integer;
begin
clrscr;
repeat
write('Nhap so phan tu:'); readln(n);
until (0<n) and (n<50);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if i mod 2=1 then
begin
inc(dem);
b[dem]:=a[i];
end;
min:=b[1];
for i:=1 to dem do
if min>b[i] then min:=b[i];
writeln('Gia tri nho nhat nhung no o vi tri le cua day A la: ',min);
readln;
end.

Câu 3:

uses crt;
var a,b:array[1..49]of integer;
n,i,dem,min:integer;
begin
clrscr;
repeat
write('Nhap so phan tu:'); readln(n);
until (0<n) and (n<50);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
for i:=1 to n do
if i mod 2=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
min:=b[1];
for i:=1 to dem do
if min>b[i] then min:=b[i];
writeln('Gia tri nho nhat nhung no o vi tri chan cua day A la: ',min);
readln;
end.

Câu 4:

uses crt;
var st:string;
d,i,dem:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if (st[i]='t') and (st[i+1]='i') and (st[i+2]='n') then inc(dem);
writeln(dem);
readln;
end.