Question

Cho số nguyên dương n và dãy a1 , an

a,Viết chương trình tìm giá trị và chỉ số phần tử lớn nhất

b, Đếm xem có bao nhiêu phần tử cùng lớn nhất

Answer 1

uses crt;

var a:array[1..100]of integer;

n,i,max,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{---------------------------------cau-a------------------------------------}

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('gia tri lon nhat la: ',max);

writeln('chi so cua no la: ');

for i:=1 to n do

if a[i]=max then write(i:4);

{-----------------------------------cau-b-----------------------------------}

writeln;

dem:=0;

for i:=1 to n do

if max=a[i] then inc(dem);

writeln('co ',dem,' phan tu cung lon nhat');

readln;

end.