Viết chương trình tìm số nhỏ nhất trong N số được nhập từ bàn phím

Question

quynhthu · Answer

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

n,i,max:longint;

begin

read(n); {nhập số phần tử trong dãy}

for i:=1 to n do read(a[i]); {nhập giá trị các phần tử}

max:=a[1]; {gán max=giá trị của phần tử thứ nhất}

for i:=2 to n do

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

write(‘gia tri lon nhat trong day la: ‘,max);

end.

Ấn đồng thời alt+f5 để xem kq nhé!!!

Đánh giá dùm nhé 🙂

chauhoangmy · Answer

program BT;

uses crt;

var A:array [1..500] of integer;

n,i,min: integer;

Begin

clrscr;

write(‘Nhap n: ‘); readln(n);

min:=1;

for i:=1 to n do

begin

write(‘A[‘,i,’]=’); readln(A[i]);

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

end;

write(‘So nhp nhat trong ‘,n,’ so vua nhap la: ‘,min);

readln

End.