program ghh;
var i, j, k: Integer;
ma: array[1..20] of integer;
begin
j:=0;
k:=0;
for i:=1 to 20 do
begin
ma[i]:= random(10);
if ma[i] > j then
j:= ma[i]
end;
for i:=1 to 20 do
begin
if ma[i] = j then
k:= k + 1;
end;
WriteLn(k)
end.
var
a:array[1..100] of integer;
max,i,n:integer;
begin
Randomize;
for i:=1 to 100 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
max:=1;
for i:=2 to 100 do
begin
if a[i]>max then
max:=a[i];
end;
for i:=1 to 100 do
begin
if a[i]=max then
n:=n+1;
end;
writeln(' ');
write(n,' Количество элементов массива равных максимальному')
end.
Объяснение:
