a) 

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;

max:=a[1];

for i:=1 to n do 

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

writeln(max);

readln;

end.

b) 

uses crt;

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

i,n,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

min:=a[1];

for i:=1 to n do 

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

writeln(min);

readln;

end.

uses crt;

var n:integer;

s:real;

begin

clrscr;

s:=1/1000;

n:=1 div s;

while s<=1/1000 do 

  begin

n:=n-1;

s:=1/n;

end;

writeln(n);

readln;

end.

KHÓ QUÁ BẠN ƠI MÌNH LỚP 12 MÀ CHỊU ĐÓ

giúp mình với

tham khảo 

Program HOC24;

var n: byte;

begin

n:=0;

while n<50-1 do n:=n+1;

write('N=',N); 

readln

end.

Ở đây b nhé: Câu trả lời

dễ thấy để S(n) và S(n+1) đều chia hết cho 1 số thì đuôi của n kết thúc bằng các số 9.

giả sử n có x số 9 cuối(ta tìm x nhỏ nhất)

khi đó n có dạng a 99...9 (x số 9)

=> n+1=b00...0 ( x+1 số 0) với b=a+1

do S(n) ≡ S(n+1) (mod 7) =>  a+9x ≡ b (mod 7) => 9x  ≡ 1 (mod 7) 

=> x=4

=> n=a9999

mà S(n) chia hết cho 7 => a=6 => n=69999 là nhỏ nhất thỏa mãn :D

Uses crt;

var

begin clrscr;

k:=1;

s:=0;

while (s<700) do begin

k:=k+1

s:=s+k;

end;

writeln(s,' ',k);

readln;

end; 

Ta thấy \(87=1.87=3.29\) nên ta xét 2TH

 TH1: \(\left\{{}\begin{matrix}S\left(n\right)=1\\S\left(n+1\right)=87\end{matrix}\right.\)

 Vì \(S\left(n\right)=1\) nên \(n=100...00\), do đó \(n+1=100...01\) nên \(S\left(n+1\right)=2\), mâu thuẫn.

 TH2: \(\left\{{}\begin{matrix}S\left(n\right)=87\\S\left(n+1\right)=1\end{matrix}\right.\)

 Vì \(S\left(n+1\right)=1\) nên \(n+1=100...00\), do đó \(n=999...99\) chia hết cho 9, dẫn đến \(S\left(n\right)⋮9\), mâu thuẫn với \(S\left(n\right)=87\)

 TH3: \(\left\{{}\begin{matrix}S\left(n\right)=3\\S\left(n+1\right)=29\end{matrix}\right.\)

Vì \(S\left(n\right)=3\) nên \(n⋮3\) \(\Rightarrow n+1\) chia 3 dư 1 \(\Rightarrow S\left(n+1\right)\) chia 3 dư 1. Thế nhưng 29 chia 3 dư 2, vô lý.

 TH4: \(\left\{{}\begin{matrix}S\left(n\right)=29\\S\left(n+1\right)=3\end{matrix}\right.\) . Ta lại xét các TH:

   TH4.1: \(n+1=10...010...01\) hoặc \(200...01\) hoặc \(100...2\). Khi đó trong tất cả các TH thì ta đều có \(S\left(n\right)=2\), không thỏa mãn.

   TH4.2: \(n+1=10...010...010...0\) hoặc \(200...0100...0\) hoặc \(100...020...0\) hoặc \(300...00\). Khi đó trong tất cả các TH thì ta đều có\(S\left(n\right)=2+9m\left(m\inℕ\right)\) với m là số chữ số 9 có trong n. Để chọn được số nhỏ nhất, ta chỉ việc lược bỏ tất cả các số 0 ở giữa và cho \(m=3\) để có \(S\left(n\right)=29\). Vậy, ta tìm được \(n=11999\) (thỏa mãn)

 Vậy, số cần tìm là 11999.

2: 

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;

for i:=1 to n do 

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

readln;

end.

sao bài này giống bài tập cô mình giao thế nhỉ:>

4 

var max,min,n,i: integer;

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

begin

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

for i:=1 to n do

begin

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

end;

max:=a[1];min:=a[1];

for i:=1 to n do

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

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

write('so lon nhat trong day la: ',max);writeln;

write('so nho nhat trong day la: ',min);writeln;

readln;

end.