Технический форум - задачка по Паскалю АВС

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - задачка по Паскалю АВС (http://www.tehnari.ru/f41/t30599/)

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

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

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

Цитата:

Сообщение от totmyanina (Сообщение 264961)

Код:

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.