Question

Viết chương trình nhập N số nguyên từ bàn phím tính tổng số lớn nhất và nhỏ nhất của dãy số

Answer 1

Tham khảo!

program b1;
uses crt;
var a:array[1..100] of integer; i,n,max,min:integer;  s:longint;
begin
clrscr;
write('Nhap vao so nguyen n:');
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if(a[i]<min) then min:=a[i];
if(a[i]>max) then max:=a[i];
end;
for i:=1 to n do
s:=max+min;
write('Tong cua so lon va so be=',s);
readln;
end.

Hỏi nhìu quá sốc