1. Viết chương trình nhập vào 1 dãy số nguyên n. Tính tổng và tìm ra giá trị nhỏ nhất của dãy số đó
2. Viết chương trình nhập vào 1 dãy số thực n. Tính giá trị trung bình và tìm ra giá trị lớn nhất của dãy số
1. Viết chương trình nhập vào 1 dãy số nguyên n. Tính tổng và tìm ra giá trị nhỏ nhất của dãy số đó
2. Viết chương trình nhập vào 1 dãy số thực n. Tính giá trị trung bình và tìm ra giá trị lớn nhất của dãy số
1/
uses crt;
var A:array[1..1000] of real;
i,n:integer; s,max:real;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
s:=s+A[i];
end;
max:=A[1];
for i:=2 to n do
if A[i]>max then max:=A[i];
write(‘Tong la: ‘,s:4:2);
writeln;
write(‘Max la: ‘,max:4:2);
readln
end.
2/
uses crt;
var A:array[1..1000] of integer;
i,n:integer; s,min:real;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
s:=s+A[i];
end;
s:=s/n;
min:=A[1];
for i:=2 to n do
if A[i]<min then min:=A[i];
write(‘Trung binh la: ‘,s:4:2);
writeln;
write(‘Min la: ‘,min:4:2);
readln
end.
1.uses crt;
var a:array[1..100] of integer;
s,n,i,min:integer;
begin
read (n);
min:=high(integer); s:=0;
for i:=1 to n do
begin
read (a[i]);
if a[i]<min then min:=a[i];
s:=s+a[i];
end;
writeln (min);
writeln (s);
readln;
end.
2.uses crt;
var a:array[1..100] of real;
n,i:integer;
s,max:real;
begin
readln (n);
max:=low(integer);
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
if a[i]>max then max:=a[i];
end;
writeln (max:0:4);
writeln ((s/n):0:4);
readln;
end.