Найти количество элементов массива,равных наибольшему.паскаль
Answers & Comments
ElternaL1ty
Program p1; const N=10; var i,max,sum:integer; a:array[1..10] of integer; begin randomize; max:=0; sum:=0; for i:=1 to N do a[i]:=1+random(10); for i:=1 to N do write(a[i],' '); for i:=1 to N do if (a[i]>max) then max:=a[i]; writeln; writeln('Максимальное число: ',max); for i:=1 to N do if(a[i]=max) then sum:=sum+1; write('Количество максимальных чисел: ',sum); end.
1 votes Thanks 1
maryfull
что значит найти количество элементов массива,равных наибольшему?
ElternaL1ty
Находишь наибольшее число в массиве и считаешь количество этих чисел. Если наибольшее число 10, то тебе нужно посчитать количество чисел 10 в масиве
Answers & Comments
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.