viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng của các phân tử trong mảng
viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng của các phân tử trong mảng
program baitap;
uses crt;
var A:array[1..10000] of integer;
n,i,m,d,min:integer;
tich:longint;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
writeln(‘NHAP GIA TRI TUNG PHAN TU CUA MANG’);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(A[i]);
end;
writeln(‘Day vua nhap la:’);
for i:=1 to n do
write(A[i],’ ‘);
writeln;
tich:=1;
write(‘Cac phan tu chia het cho 5 trong mang la:’);
for i:=1 to n do
begin
write(‘ ‘,A[i]);
tich:=tich*A[i];
end;
writeln;
writeln(‘Tich la: ‘,tich);
write(‘Nhap M: ‘); readln(m);
d:=0;
write(‘Cac phan tu la uoc cua ‘,m,’ la: ‘);
for i:=1 to n do
if m mod A[i]=0 then
begin
write(A[i],’ ‘);
d:=d+1;
end;
writeln;
writeln(‘=> Co ‘,d,’ phan tu la uoc’);
min:=A[1];
for i:=2 to n do
if A[i]<min then min:=A[i];
writeln(‘Gia tri nho nhat la: ‘,min);
write(‘Vi tri xuat hien la: ‘);
for i:=1 to n do
if A[i]=min then write(i,’ ‘);
readln
end.