Giúp nhox với, khó wá à

Tiêu đề: Re: Giúp nhox với, khó wá à 13/6/2008, 5:59 pm

kệ nÓ tới đó Oỳ tính----------

Tiêu đề: Re: Giúp nhox với, khó wá à 13/6/2008, 6:16 pm

Mún học với thầy "DUI" thì phải chịu khó... nghe chửi Y10

Anh đây từng bị thầy chửi tưng bừng hoa cỏ mùa xuân lun

Nhưng nhờ vậy mà giờ Pascal cũng kha khá

Thầy rất vui tính, rất thân thiệt và hầu như là ko phạt hay đánh đập học sinh, chỉ chửi thui Y10

Học với thầy rất tự do, tha hồ mà quậy, quậy banh máy thì phải tự mà sửa, muốn biết cách sửa máy thì hãy hỏi HHH (Hunter Hearst Helmsley), nó bị thầy chơi 1 vố rất ui Y58

Nhưng dĩ nhiên là phải có kiến thức cơ bản trước (vụ này thì để thầy Tiến lo)

Tiêu đề: Re: Giúp nhox với, khó wá à 13/6/2008, 6:25 pm

Huy đâu ời, vào ý kiến cái coi Bye Bye

Tiêu đề: Re: Giúp nhox với, khó wá à 13/6/2008, 6:37 pm

Đây!!! Ráng học thầy "DZui" đê, thầy dạy rất hay, (có thể là nhứt trường), Nhưng mà lực, mày vít code vb hay pascal mà có "DIM" dzậy; Cách khác đê:

Code:: Var a:array[1..10] of integer;
i,j,max,min:integer;
Begin
for i:=1 to 10 do
begin
write('Nhap so thu:',i);
readln(a[i]);
end;
writeln;
Write('Day da nhap:');
for i:=1 to 10 do write(a[i]:4);
max:=a[1];
for i:=2 to 10 do if a[i]>max then max:=a[i];
min:=a[10];
for i:=9 downto 1 do if a[i] writeln('So lon nhat trong day:',max);
writeln('So nho nhat trong day:',min);
readln;
end.