Массивуличка)

[BBagi]

Ну вобщем как всегда всем нубам нужен хороший пиночек под попу=))))

1 задачка))) В массиве случайных целых чисел определить количество максимальных и минимальных элементов .

запуталась куда вставить тот самый счетчик))) этих самых любимых)))) минимальных и максимальных чисел))

код задачи :
{ну вступление пропустим....}
min:=a[1];
max:=a[1];
for i:=1 to n do
begin
if a[i]<=min then
begin
min:=a[i];
imin:=i;
end;
if a[i] >=max then
begin
max:=a[i];
imax:=i;
end;
end;
___
ну и выводы всякие))))) imax, imin =>порядковый номер..
Подскажите как мне ПОСЧИТАТЬ количество максимальных и минимальных элементов))))
Точнее как грамотнее использовать вот эти строки)) =>
kmin:=0;
for i:=1 to n do
if a[i]=a[i+1] then inc(kmin);
writeln(kmin);

[Olympian]

Можно по-тупому - нашла в своей проге max и min и потом так

kmin := 0;
kmax := 0;
for i := 1 to n do
begin
if a[i] = max then
kmax := kmax + 1;
if a[i] = min then
kmin := kmin + 1;
end;
write(kmax, ' ', kmin);

и радуешься жизни)

[BBagi]

мдя... даже для моей светлой головы понятно что как-то inc можно впихнуть в код)) тока вот грамотно не получается))) запуталась в операторных скобках)

[Olympian]

забей на Inc =) А разве, если дословно, мой когда не работает?)

[Карась]

Всё достаточно понятно и прозразчно.

Var i, min, max, kmin, kmax : integer;
      mass : array [1..20] of Integer;

Begin

Randomize;
For i := 1 To 20 Do
  Begin
    mass[i] := Random(10);
    Write(mass[i], ' ');
  End;

min := mass[1]; kmin := 0;
max := mass[1]; kmax := 0;
For i := 2 To 20 Do
  Begin
    If mass[i] < min Then Begin min := mass[i]; kmin := 0; End;
    If mass[i] > max Then Begin max := mass[i]; kmax := 0; End;
    If mass[i] = min Then kmin := kmin + 1;
    If mass[i] = max Then kmax := kmax + 1;
  End;

Writeln;
Writeln('Minimum = ', min, ' vstretilsa ', kmin, ' raz');
Writeln('Maximum = ', max, ' vstretilsa ', kmax, ' raz');
Readln;
End.

[BBagi]

=) эврика)))