Bài 1 viết chương trình nhập vào só tự nhiên n sau đó m ra tổng của n số tự nhiên có giá trị từ Min đến Max
1 câu trả lời
uses crt;
var a : array[1 .. 100] of integer;
i, n, min, max, s : integer;
begin
clrscr;
write('Nhap so n : '); readln(n);
write('Nhap so thu 1 : '); readln(a[1]);
min := a[1]; max := a[1]; s := 0;
for i := 2 to n do
begin
write('Nhap so thu ', i ,' : '); readln(a[i]);
if max < a[i] then max := a[i];
if min > a[i] then min := a[i];
end;
for i := min to max do s := s + i;
writeln('Tong so tu nhien tu min - max = ', s);
readln
end.
