задачка по Паскалю АВС

[totmyanina]

задачка по Паскалю АВС

1)Дан числовой массив a1,a2,,..,an. Определить, сколько раз встречается в этой таблице максимальное по величине число.

тема: массивы!

 

[Vladimir_S]

1)Дан числовой массив a1,a2,,..,an. Определить, сколько раз встречается в этой таблице максимальное по величине число.

тема: массивы!

CONST
 N=10;
VAR
 A:ARRAY[1..N] of INTEGER;
 i,Max,Counter:INTEGER;
BEGIN
 Randomize;
 Max:=-52;
 For i:=1 TO N DO
  begin
   A[i]:=Random(100)-50;
   If A[i]>Max then Max:=A[i];
  end;
 For i:=1 TO N DO Write(A[i]:4);
 WriteLn; 
 Counter:=0;
 For i:=1 TO N DO
  If A[i]=Max then INC(Counter);
 Writeln('Maximum value ',Max,' occurs ',Counter,' times');
 ReadLn;
END.