Question

nhập vào một dãy số nguyên dương, sắp xếp mảng đó theo chiều tăng dần, tìm max, tìm min,và đưa ra chỉ số, tính tổng của mảng, đưa ra số lượng số chẵn lẻ của mảng.

với mảng đó, đưa ra các chỉ số phần tử có giá trị bằng 10.

ai giúp mình với.=))) pt pascal

Answer 1

uses crt;

type mang=array[1..10000] of longint;

var n,i,j,max,min,vt,d:longint;

a:mang;

begin

clrscr;

write('n='); readln(n);

for i:=1 to n do begin

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

readln(a[i]);

end;

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

for i:=2 to n do

if a[i]>max then begin

max:=a[i];

vt:=i;

end;

writeln(' phan tu lon nhat la ',max,' o vi tri ',vt);

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

for i:=2 to n do

if a[i]<min then begin

min:=a[i];

vt:=i;

end;

writeln(' phan tu nho nhat la ',min,' o vi tri ',vt);

d:=0;

for i:=1 to n do

if a[i] mod 2=0 then inc(d);

writeln(' co ',d,' so chan');

writeln(' co ',n-d,' so le');

write(' chi so phan tu co gia tri bang 10 la: ');

for i:=1 to n do

if a[i]=10 then write(i,' ');

readln;

end.