program in_mang;

uses crt;

var i,n,max:longint;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

writeln('cac phan tu chan:');

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:3);

writeln;

max:=a[1];

for i:=1 to n do

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

writeln('max cua day la:',max);

readln;

end.

uses crt;

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

i,n,max:integer;

begin

clrscr;

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

for i:=1 to n do 

 begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

writeln;

max:=a[1];

for i:=1 to n do

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

writeln(max);

readln;

end.

program tim_uoc;

uses crt;

var n,i,j:longint;

begin

clrscr;

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

write('cac uoc cua n la:');

for i:=1 to n do

if n mod i=0 then write(i:3);

writeln;

j:=0;

for i:=1 to n do

if n mod i=0 then j:=j+1;

if j=2 then writeln(n,' la so nguyen to')

else writeln(n,' khong phai la so nguyen to');

readln;

end.

Khai báo mảng có rất nhiều loại: mảng 1 chiều,mảng 2 chiều, mảng 3 chiều,...
Ở đây tui chỉ nêu mảng 1 chiều và 2 chiều mà thôi :)
Mảng 1 chiều:
+Cách 1: Khai báo trực tiếp: var <tên biến mảng>:array[kiểu chỉ số]of<kiểu phần tử>;
+Cách 2: Khai báo gián tiếp: type <tên kiểu mảng>=array[kiểu chỉ số]of<kiểu phần tử>;
var <tên biến mảng>:<tên kiểu mảng>
VD: C1: var Nhietdo:=array[1..50]of real;
C2: type KM1=array[1..50]of real;
var Nhietdo: KM1;
Mảng 2 chiều:
+Cách 1: Khai báo trực tiếp: var <tên biến mảng>:array[kiểu chỉ số hàng,kiểu chỉ số cột]of<kiểu phần tử>;
+Cách 2: Khai báo gián tiếp: type <tên kiểu mảng>=array[kiểu chỉ số hàng,kiểu chỉ số cột]of<kiểu phần tử>;
var <tên biến mảng>:<tên kiểu mảng>
VD: C1: var B:=array[1..9,1..10]of integer;
C2: type KM1=array[1..9,1..10]of integer;
var B: KM1

==> lợi ích : rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh, giúp tiết kiệm rất nhiều thời gian và công sức viết trương trình :D

Lợi ích chính của việc sử dụng biến mảng là rút gọn việc viết chương trình, có thể sử dụng câu lệnh lặp để thay nhiều câu lệnh, giúp tiết kiệm rất nhiều thời gian và công sức viết chương trình. Ngoài ra chúng ta còn có thể lưu trữ và xử lí nhiều dữ liệu có nội dung liên quan đến nhau một cách hiệu quả.

program tim_tong;

uses crt;

var x,i,tong:longint;

begin

clrscr;

tong:=0;i:=1;

while tong<=3500 do

begin

write('x',i,'=');readln(x);

tong:=tong+x;

i:=i+1;

end;

write('tong cac so tren la:',tong);

readln;

end.

uses crt;
var e,f,i,a,b,c,d: byte;
begin
clrscr;
write('Tu so = '); readln(e);
write('Mau so = '); readln(f);

a:=e;
b:=f;

writeln('Phan so ban dau: ',e,'/',f);

while E <> F do
if E > F then E:=E-F
else F:=F-E;

If e <> 1 then
begin
a:=a div e;
b:=b div e;
write('Phan so toi gian: ',a,'/',b);
end
else write('Phan so da toi gian, ',a,'/',b);
readln
end.

dùng for do thay while do dùm mình với

uses crt;

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

n,i:integer;

begin

clrscr;

repeat

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

if n<=0 then writeln('Ban nhap sai, yeu cau nhap lai');

until n>0;

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i] mod 2=0 then write(a[i]:4);

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 

  t:=t+a[i];

writeln(t);

readln;

end.

thanks nhiều nhaaa

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  if a[i]<0 then write(a[i]:4);

readln;

end.

uses crt;

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

i,n,t,k:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

t:=0;

for i:=1 to n do 

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

writeln(t);

readln;

end.

Cảm ơn bạn nha

uses crt;

var n,i,t:integer;

begin

clrscr;

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

t:=0;

for i:=1 to n do

  if n mod i=0 then

begin

write(i:4);

t:=t+i;

end;

writeln;

writeln('Tong cac uoc cua ',n,' la: ',t);

readln;

end.