Nhập một dãy số nguyên có N phần tử.In ra màn hình phần tử nhỏ nhất,phần tử lớn nhất và giá trị trung bình của danh sách trong màn hình (sử dụng chương trình con).
Nhập một dãy số nguyên có N phần tử.In ra màn hình phần tử nhỏ nhất,phần tử lớn nhất và giá trị trung bình của danh sách trong màn hình (sử dụng chương trình con).
-program CTNMT;
uses crt;
var n,i,dem: longint;
A: array [1..1000] of longint;
Begin
Writeln(‘Ban hay N’); Readln(n);
for i:=1 to n do
begin
Writeln(‘Nhap so thu ‘,i); Readln(a[i]);
end;
Writeln(‘In ra mang:’);
for i:1 to n do Write(a[i]:5);
writeln;
Writeln(‘In ra so chan trong mang’);
for i:= 1 to n do
begin
if (a[i] mod 2) = 0 then Write(a[i]:5)
if a[i] < 0 then dem:= dem +1;
end;
writeln(‘so so nguyen am la: ‘,đem);
REadln;
end.
not copy
@ga nguyen
uses crt;
var a:array[1..1000000]of longint; i,n:longint;
function tb(m:longint):real;
var i:longint;
begin
for i:=1 to n do
tb:=TB+A[i];
tb:=tb/n;
end;
function nt(m:longint):longint;
var i:longint;
begin
nt:=a[1];
for i:=1 to n do
if (m=0)and(nt<a[i]) then nt:=a[i] else
if (m=1)and(nt>a[i]) then nt:=a[i];
end;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);readln(a[i]);
end;
writeln(‘Be nhat: ‘,nt(1));
writeln(‘Lon nhat: ‘,nt(0));
writeln(‘Trung binh cong: ‘,tb(0):0:5);
readln
end.