Дано 20 целых чисел. Определить, сколько раз встречается наибольшее значение. Предполагается, что максимальное число может повториться несколько раз- Pascal(Паскаль)

program den;
uses crt;
var m:array[1..20] of integer;
 z,sch,i,nmax: integer;
 
 
begin
  m[1]:=34; m[2]:=2; m[3]:=62; m[4]:=80; m[5]:=7;
    m[6]:=34; m[7]:=2; m[8]:=62; m[9]:=80; m[10]:=7;
      m[11]:=34; m[12]:=2; m[13]:=62; m[14]:=80; m[15]:=7;
        m[16]:=34; m[17]:=2; m[18]:=62; m[19]:=80; m[20]:=7;
nmax:=0;
sch:=0;
clrscr;
 
 for i:=1 to 20 do begin
 
{if m[i]=nmax then
 sch:=sch+1;}
 
 if m[i]>=nmax then
 nmax:=m[i];
 end;
 
 for i:=1 to 20 do begin
  if nmax=m[i] then
  sch:=sch+1;
 end;
 
 
  writeln('max element massiva ',nmax);
  writeln('chislo povtorenii elementa ',sch);
 
 for i:=1 to 5 do
 write(' a[',i,']= ',m[i]);
 readln;
  for i:=6 to 10 do
 write(' a[',i,']= ',m[i]);
 readln;
  for i:=11 to 15 do
 write(' a[',i,']= ',m[i]);
 readln;
  for i:=16 to 20 do
 write(' a[',i,']= ',m[i]);
 readln;
 
 end.

Leave a Comment

56 − 48 =