uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
inc(dem);
t:=t+a[i];
end;
writeln('Trung binh cac so chan la: ',t/dem:4:2);
readln;
end.
Viết chương trình nhập vào mảng n số tự nhiên ngẫu nhiên in ra màn hình các số là số chẵn ở vị trí lẻ
Viết chương trình nhập vào dãy số gồm n số nguyên và in ra màn hình Trung bình cộng các số có trong mảng
viết chương trình nhập mảng A gồm n phần tử và in ra màn hình tổng các số chẵn trong pas cal
Viết chương trình nhập vào mảng số nguyên gồm 5 phần tử sau đó in ra màn hình phần tử có giá trị lớn nhất Câu 2: viết chương trình nhập vào mảng số nguyên gồm 6 phần tử sau đó in ra màn hình giá trị nhỏ nhất
a) Viết chương tình nhập vào từ bàn phím mảng A gồm n số nguyên.In ra màn hình số nguyên lớn nhất
b) Viết chương trình nhập vào từ bàn phím mảng B gồm n số nguyên.In ra màn hình số nguyên bé nhất
viết chương trình sử dụng biến mảng để nhập một dãy gồm N số nguyên từ bàn phím.In ra màn hình các số nguyên đó. Tính tổng và trung bình cộng của N số đó.
Giúp mình với ạ
Viết chương trình nhập mảng gồm N số nguyên từ bàn phím và in ra màn hình các dãy số vừa nhập đó
