Question

Viết chương trình dùng để tìm giá trị nhỏ nhất trong 10 phần tử số nguyên nhập từ bàn phím

Answer 1

uses crt;

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

i,min:integer;

begin

clrscr;

for i:=1 to 10 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.

Answer 2

Program HOC24;

var i,min: integer;

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

begin

for i:=1 to 10 do

begin

write('Nhap phan tu thu ',i,': '); readln(a[i]);

end;

min:=a[1];

for i:=2 to 10 do if min>a[i] then min:=a[i];

write('So nho nhat trong 10 phan tu so nguyen da nhap la: ',min);

readln

end.

Answer 3

Program Cau2;

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr;

Write(‘ Nhap do dai cua day so, n= ‘);

Readln(n);

Writeln(‘Nhap cac phan tu cua day so: ‘);

For i:= 1 to n do

Begin

Write(‘a[‘, i, ‘]= ‘);

Readln(a[i]);

End;