1.Viết chương trình nhập vào 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ố
giúp mình với, cảm ơn
1.Viết chương trình nhập vào 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ố
giúp mình với, cảm ơn
1.
Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
n,i,s,min: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
min:=maxlongint;
s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
s:=s+A[i];
If A[i]<min then min:=A[i];
End;
Writeln(‘S = ‘,s);
Write(min);
Readln
End.
2.
Program FNG;
Uses crt;
Var A: array[1..1000] of extended;
n,i: longint;
max,s: extended;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
max:=-99999999999;
s:=0;
For i:=1 to n do
Begin
Write(‘A[‘,i,’] = ‘);
Readln(A[i]);
s:=s+A[i];
If A[i]>max then max:=A[i];
End;
Writeln(‘TBC = ‘,s/n:0:2);
Write(max:0:2);
Readln
End.
1/
uses crt;
var A:array[1..100] of integer;
i,n,s,min:integer;
begin
clrscr;
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;
min:=A[1];
for i:=2 to n do if min>A[i] then min:=A[i];
writeln(‘Tong la: ‘,s);
writeln(‘Gia tri nho nhat la: ‘,min);
readln
end.
2/
uses crt;
var A:array[1..100] of real;
i,n:integer; s,max:real;
begin
clrscr;
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 max<A[i] then max:=A[i];
s:=s/n;
writeln(‘Gia tri trung binh la: ‘,s:4:2);
writeln(‘Gia tri lon nhat la: ‘,max:4:2);
readln
end.