dp-->do

uses crt;

var n,i:integer;

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

begin

clrscr;

write('nhap dp dai cua day:');readln(n);

for i:=1 to n do

begin

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

end;

writeln('tat ca cac so trong day la:');

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

readln;

end.

sửa lại chổ này nhe bạn:

min:=a[1];

for i:=2 to n do

uses crt;

var n,i,min:integer;

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

begin

clrscr;

write('nhap so phan tu cua day:');readln(n);

for i:=1 to n do

begin

write('nhap a[',i,']:');readln(a[i]);

end;

min:=a[1];

for i:=1 to n do

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

write('gia tri nho nhat cua day so la:',min);

readln;

end.

đúng quy cách là chữ cái đầu viết hoa phải k?

nguyên tử Hg nặng nhất, nặng hơn nguyên tử nhẹ nhất (Al) 7,4 lần

KOH, Fe(OH)_2, Fe(OH)_3, Cu(OH)₂, Ca(OH)_2,

Al(OH)₃

natri clorua

hỏi t.chính á