Tin học

B1:
C1: Pogram bien_mang;
var n,i,s:longint; a:array[1..1000] of longint; begin  s:=1; writeln(`nhap so phan tu cua mang`);readln(n); for i:=1 to n do  write(`nhap phan tu thu `,i,` :`);readln(a[i]); for i:=1 to n do s:=s*a[i]; write(`tich cua `,n,` so la:`,s); readln; end.


C2: Pogram bien_mang;
var n,max,i,min:longint; a:array[1..1000] of longint; begin  writeln(`nhap so phan tu cua mang `);readln(n); for i:=1 to n do  write(`nhap phan tu thu `,i,`:`);readln(a[i]); max:=a[1]; min:=a[1]; for i:=1 to n do  begin if maxa[i] then min:=a[i]; end; writeln(`phan tu lon nhat la:`,max); write(`phan tu nho nhat la:`,min); readln; end.



B2:
C1: Pogram trung_binh_cong;
Viết chương trình pascal nhập n số nguyên từ bàn phím. In ra màn giá trị trung bình cộng của dãy số vừa nhập. Biết n là 1 giá trị nguyen được nhập từ bàn phím sử dụng biến mảng