Цитата:
Сообщение от totmyanina
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.