Kiểu dữ liệu có cấu trúc - Hỏi đáp

uses crt;
var a:array[1..20]of integer;
i,j,tam,t,max,min:integer;
begin
clrscr;
for i:=1 to 20 do
begin
write('A[',i,']='); readln(a[i]);
end;
write('Cac so le la: ');
for i:=1 to 20 do
if a[i] mod 2<>0 then write(a[i]:6);
writeln;
write('Cac so chan la: ');
for i:=1 to 20 do
if a[i] mod 2=0 then write(a[i]:6);
writeln;
t:=0;
for i:=1 to 20 do
t:=t+a[i];
writeln('Tong cua day so la: ',t);
max:=a[1];
min:=a[1];
for i:=1 to 20 do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write('Vi tri cua so nho nhat la: ');
for i:=1 to 20 do
if min=a[i] then write(i:4);
writeln;
write('Vi tri cua so lon nhat la: ');
for i:=1 to 20 do
if max=a[i] then write(i:4);
readln;
end.

uses crt;

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

i,n,dem,dem1: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-----------------------}

dem:=0;

dem1:=0;

for i:=1 to n do

begin

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

if a[i] mod 5=0 then inc(dem1);

end;

writeln('so luong cac so chia het cho 3 la: ',dem);

writeln('so luong cac so chia het cho 5 la: ',dem1);

readln;

end.

uses crt;

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

i,n,dem,dem1: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-----------------------}

dem:=0;

dem1:=0;

for i:=1 to n do

begin

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

if a[i] mod 5=0 then inc(dem1);

end;

writeln('so luong cac so chia het cho 3 la: ',dem);

writeln('so luong cac so chia het cho 5 la: ',dem1);

readln;

end.

const fi='bt.inp';
fo='bt.out';
var f1,f2:text;
a:array[1..100]of integer;
i,n,max,min:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
for i:=1 to n do
if (min<a[i]) and (a[i]<max) then write(f2,a[i]:4);
close(f1);
close(f2);
end.

uses crt;

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

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{------------------------xu-ly-------------------------}

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

write(a[i],' ');

inc(dem);

end;

writeln;

writeln('so phan tu chan trong day la: ',dem);

readln;

end.

Đối với Batch/CMD:

set /p a=""

set /a a=%a%

echo %a%

Đối với Python

n = input()

print(eval(n))

Còn với Pascal hay C++ thì bạn nên tự viết một chương trình tính toán riêng thay vì sử dụng các hàm có sẵn, hoặc tham khảo thêm tại botay.com :)) Mình thì mình có lên đó tìm kiếm thử rồi nhưng kết quả thì có vè không khả nghi cho lắm

Program HOC24;

const fi='SNENXAU.INP';

var d: array['A'..'z'] of integer;

i,j,t,l: byte;

s1,s2: string;

f: text;

c: char;

procedure ip;

begin

assign(f,fi);

reset(f);

readln(f,s1);

read(f,s2);

close(f);

end;

BEGIN

ip;

for i:=1 to length(s1) do

if s1[i] in ['A'..'z'] then inc(d[s1[i]]);

for c:='A' to 'z' do

if d[c]>0 then write(d[c],c);

writeln;

t:=0;

for i:=1 to length(s2) do

begin

if s2[1] in ['A'..'z'] then

begin

write(s2[1]);

delete(s2,1,1);

end;

if (s2[i] in ['A'..'z']) and (s2[i-1] in ['A'..'z'])

then write(s2[i]);

if s2[i] in ['0'..'9'] then

begin

val(s2[i],l);

t:=t*10+l;

end;

if not(s2[i] in ['0'..'9']) then

for j:=1 to t do

begin

write(s2[i]);

t:=0;

end;

end;

readln

end.

Cái này làm trên 1 bài hay làm trên 2 bài riêng biệt vậy bạn?

Program xuatmatranxoanoc;

uses crt;

var a:array[1..100,1..100] of Integer;

d,i,j,n:integer;

Begin

clrscr;

d:=0;

i:=0;

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

repeat

i:=i+1;

for j:=i to n-i do

begin

d:=d+1;

a[i,j]:=d;

end;

for j:=i to n-i do

begin

d:=d+1;

a[j,n+1-i]:=d;

end;

for j:=i to n-i do

begin

d:=d+1;

a[n+1-i,n+1-j]:=d;

end;

for j:=i to n-i do

begin

d:=d+1;

a[n+1-j,i]:=d;

end;

until d>=n*n-1;

if n mod 2=1 then a[(n+1) div 2,(n+1) div 2]:=n*n;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:4,' ');

writeln;

end;

readln;

End.

uses crt;
var a:array[1..100,1..100]of integer;
n,i,j,k:integer;
begin
clrscr;
write('Nhap n='); readln(n);
i:=n div 2+1;
j:=n div 2+2;
for k:=1 to sqr(n) do
begin
a[i,j]:=k;
if k mod n=0 then j:=j+2
else begin
inc(j);
dec(i);
end;
if j>n then j:=j mod n;
if i=0 then i:=n;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
readln;
end.

các bạn cố gắng nha đề hai rất khó đấy

Không phải có ý gì nhưng sao 3 bạn top đầu đều là những new mem và đều đạt điểm tối đa hết vậy nhỉ ?

uses crt;

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

n,i:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

writeln('Cac so chinh phuong la: ');

for i:=1 to n do

if sqrt(a[i])=trunc(sqrt(a[i])) then write(a[i]:4);

readln;

end.

Câu 1:

uses crt;
var s:string;
d,i,kt:integer;
begin
clrscr;
write('Xau S='); readln(s);
d:=length(s);
kt:=0;
for i:=1 to d do
if s[i]=' 'then kt:=1;
if kt=0 then writeln('trong xau khong co dau cach')
else writeln('trong xau co dau cach');
readln;
end.

Câu 2:

uses crt;
var a:array[1..100]of integer;
i,n,max,t,dem:integer;
begin
clrscr;
write('n='); readln(n);
{-----------------------------cau-a----------------------------}
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-----------------------------cau-b----------------------------}
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
{-----------------------------cau-c----------------------------}
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
{-----------------------------cau-d----------------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem);
{-----------------------------cau-e---------------------------}
writeln('day so la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
writeln('gia tri lon nhat cua mang la: ',max);
writeln('tong cac phan tu le trong mang la: ',t);
writeln('so luong phan tu chia het cho 3 la: ',dem);
readln;
end.

var n,i,k,max,v,m:integer;

a,b:array[1..250] of integer;

procedure max1;

begin

max:=a[1];

v:=1;

for i:=2 to n do

if max<a[i] then begin max:=a[i]; v:=i; end;

writeln('max=',max,' vi tri cua max la ',v);

end;

procedure nhapk;

begin

v:=0;

m:=0;

write('nhap k: ',); readln(k);

for i:=1 to n do

if a[i]=k then

begin

v:=i;

m:=m+1;

b[m]:=v;

end;

if v<>0 then for i:=1 to m do write('vi tri ma k xuat hien tron day: ',b[i])

else write('KHONG TIM THAY');

end;

procedure nhapmang;

begin

write('nhap n: '); readln(n);

for i:=1 to n do

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

writeln;

end;

begin

nhapmang;

max1;

nhapk;

readln;

end;

CHÚC BẠN HỌC TỐT

Program HOC24;

var n,i,x,d: integer;

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

begin

write('Nhap N : '); readln(n);

for i:=1 to n do

begin

write('Nhap so thu ',i,' : '); readln(a[i]);

end;

write('Nhap x : '); readln(x);

d:=0;

for i:=1 to n do if x=a[i] then d:=d+1;

writeln('So ',x,' xuat hien ',d,' lan ');

write('So ',x,' nam o nhung vi tri : ' );

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

readln

end.

uses crt;

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

dem,i,n,d,x:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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

d:=0;

for i:=1 to n do

if a[i]=x then inc(d);

writeln('So lan xuat hien cua ',x,' trong day so la: ',d);

dem:=0;

for i:=1 to n do

if a[i]=x then

begin

inc(dem);

vt[dem]:=i;

end;

if dem>0 then

begin

write('So ',x,' xuat hien o cac vi tri lan luot la: ');

for i:=1 to dem do

write(vt[i]:4);

end;

readln;

end.