program tin_hoc_de_dang;

uses crt;

Var A:array[1..100] Of integer;
n,i,,s,k:integer;
BEGIN

clrscr;

write('nhap n'); Readln(n);

write('nhap k'); Readln(k);
s:=0
For i:=1 to n do
Begin
readln(A[i]);
If A[i] mod k=0 then s:=s+1;
End;

Writeln('Co ', s,' so chia het cho ',k);
readln
end.

Việc thực hiện hàm luôn trả về giá trị kết quả thuộc kiểu xác định và giá trị đó được gán cho tên hàm.

uses crt;
const fi='so.txt';
fo='am.txt';
var f1,f2:text;
a:array[1..100]of integer;
dem,i,dem1:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
dem:=dem+1;
read(f1,a[dem]);
end;
{--------------------------xu-ly----------------------}
dem1:=0;
for i:=1 to dem do
if a[i]<0 then inc(dem1);
writeln(f2,dem1);
close(f1);
close(f2);
readln;
end.

uses crt;
var a,b,tam:integer;
{------------------------------------------------------}
procedure nhap(var n:integer);
begin
write('nhap mot so nguyen bat ky: '); readln(n);
end;
{--------------------------------------------------------}
procedure doicho(var x,y:integer);
begin
writeln('so a truoc khi thay doi la: ',x);
writeln('so b truoc khi thay doi la: ',y);
begin
tam:=x;
x:=y;
y:=tam;
end;
writeln('so a sau khi thay doi la: ',x);
writeln('so b sau khi thay doi la: ',y);
end;
{---------------------------------------------------------}
begin
clrscr;
nhap(a);
nhap(b);
doicho(a,b);
readln;
end.

uses crt;
const fi='sum.inp';
fo='sum.out';
var f1,f2:text;
a:array[1..250]of integer;
n,i,t,dem:integer;
tbc:real;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{----------------xu-ly--------------------}
t:=0;
dem:=0;
for i:=1 to n do
if (a[i]>0) and (a[i] mod 2=0) then
begin
inc(dem);
t:=t+a[i];
end;
tbc:=t/dem;
writeln(f2,tbc:4:2);
close(f1);
close(f2);
readln;
end.

Lời giải :

program hotrotinhoc;

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

n,i,min : integer;

begin

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

for i:= 1 to n do

begin

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

end;

min:=a[1];

for i:= 2 to n do

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

write('Gia tri nho nhat trong day la :',min);

readln

end.

uses crt;
var i:integer;
begin
clrscr;
writeln('bang nhan 5 la: ');
for i:=1 to 9 do
writeln(5*i,' ');
readln;
end.

1

i

uses crt;
const fi='vanban.txt';
fo='kq.txt';
var f1,f2:text;
st:string;
i,d,dem,k,dem1,x,y,dem2,kt,e:integer;
j:char;
a,b:array[1..100]of integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
{---------------------cau-a------------------}
d:=length(st);
dem:=0; dem1:=0;
for i:=1 to d do
for j:='0' to '9' do
if st[i]=j then
begin
inc(dem);
val(st[i],x,y);
inc(dem1);
a[dem1]:=x;
end;
writeln(dem);
{------------cau-b------------------}
b[1]:=a[1];
dem2:=1;
for k:=1 to dem1 do
begin
kt:=0;
for e:=1 to dem2 do
if a[k]=b[e] then kt:=1;
if kt=0 then begin
inc(dem2);
b[dem2]:=a[k];
end;
end;
for k:=1 to dem2 do write(f2,b[k]:4);
close(f1);
close(f2);
readln;
end.

- khai báo

bein

- nhập n, k, dãy số

- dem:=0;

for i:=1 to n do

if a[i] mod k=0 then dem:=dem+1;

writeln(dem);

end.

uses crt;
var a:array[1..100]of integer;
i,n,k,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------xuat------------------}
for i:=1 to n do
write(a[i]:4);
{---------------xu-ly-------------------}
writeln;
write('nhap k='); readln(k);
dem:=0;
for i:=1 to n do
if a[i] mod k=0 then inc(dem);
writeln('so phan tu chia het cho ',k,' trong day la: ',dem);
readln;
end.