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.

Trả lời