Question

Hãy viết chương trình nhập vào 1 dãy N số nguyên từ bàn phím ( N là số nguyên dương đc nhập vào bàn phím ) .tính và in ra màng hình các yêu cầu sau :

a) Tính tổng các số vừa nhập

b) Tính tích các số vừ nhập

c) Tính trung bình của các số vừa nhập

d) HÃy tìm số lớn nhất và bé nhất

Answer 1

uses crt;

var i, n, max, min, tong: integer;

tb: real;

tich: longint;

a: array [1..100] of integer;

begin

write(' nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

tong := tong + a[i];

tb:= tong/n;

max:= a[1]; min:=a[1];

for i:=2 to n do

begin

if a[i] > max then max:= a[i];

if a[i] < min then min:= a[i];

end;

tich:=1;

for i:=1 to n do

tich:= tich*a[i];

writeln(' tong cac so vua nhap la:', tong);

writeln(' tich cac so vua nhap la:', tich);

writeln(' trung binh cac so vua nhap:', tb:4:2);

writeln(' so lon nhat:', max);

writeln(' so nho nhat:', min);

readln

end.