Olm chào em, cảm ơn đánh giá của em về chất lượng bài giảng của Olm, cảm ơn em đã đồng hành cùng Olm trên hành trình tri thức. Chúc em học tập hiệu quả và vui vẻ cùng Olm em nhé!

rất bổ ích đối với em

hay đấy rất bổ ích cô ạ

uses crt;

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

n,i,k,min,vt:integer;

begin

clrscr;

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

if n=0 then writeln('Moi ban nhap lai')

else begin

for i:=1 to n do 

begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

writeln;

min:=a[1];

vt:=1;

for i:=1 to n do 

 if min>a[i] then

begin

min:=a[i];

vt:=i;

end;

writeln('So nho nhat la: ',min,' tai vi tri: ',vt);

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

for i:=1 to n do 

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

end;

readln;

end.

uses crt;

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

i,n,m,j:integer;

begin

clrscr;

readln(n,m);

for i:=1 to n do 

  for j:=1 to m do 

  readln(a[i,j]);

readln;

end.

program 06;
Uses crt;
Var
  T:real
  i;n:integer;
Begin
clrscr;
 write('n=1');Readln(n);
 T:=06
 for i:=1 to n do
  T:=\frac{1}{1}.2+\frac{1}{2}.5+\frac{1}{3}.8+\frac{1}{4}.11
 write('T=06'; T);
 readln;
 end.

ĐÚNG VẬY, RẤT BỔ ÍCH !!!

Anh thấy cũng hơi chậm 

em tải cũng phải mất đến 10 giây đấy ạ