Дан массив из n чисел

[Den_Dodge]

Здравствуйте! Помогите пожалуйста!

Дан массив из n чисел. Необходимо написать программу, которая подсчитывает сколько раз в нем встречаются максимальный и минимальный элементы.

Если можно с пояснением. Спасибо!
на Delphi.

[Bugrimov]

Заполнение массива покажите?

[Den_Dodge]

Немного не понял Вас...

[Stilet]

Немного не понял Вас...

Твои попытки решить задачу увидеть можно?

[Den_Dodge]

К сожалению попытки были четны... А точнее даже намеков нет...

[Stilet]

Что ж. Садись, два.
Вот тебе домашка, изучай:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
      Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

			{ TForm1 }

      TForm1 = class(TForm)
						procedure FormCreate(Sender: TObject);
      private
            { private declarations }
      public
            { public declarations }
      end;

var
      Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
      a:array of integer;//Описываем массив
      mx,mn, //Минимум и максимум
      i, //Счетчик для цикла
      c,g //Минимум и максимум - количество
      :integer;
begin
 //Создаем массив
 SetLength(a,0);
 //Наполняем его
 for i:=Low(a) to high(a) do begin
   //Случайными
   a[i]:=random(100);
   //Находим экстремумы
   if (i=Low(a)) or (a[i]>mx) then mx:=a[i];
   if (i=Low(a)) or (a[i]<mn) then mn:=a[i];
 end;
 //Вычисляем сколько каких экстремумов в массиве
 c:=0; g:=0;
 for i:=Low(a) to high(a) do begin
   //Сколько максимумов
   if (a[i]=mx) then inc(c);
   //Сколько минимумов
   if (a[i]=mn) then inc(g);
 end;
 //Сообщаем
 ShowMessage(format('Минимальных=%d, Максимальных=%d',[c,g]));
 //Грохаем массив
 SetLength(a,0);
end;

end.

[Den_Dodge]

Ну я читааал...
Спасибо большое! Буду разбираться!

[Stilet]

Ну я читааал...

Тарзан тебе конечно верит. Разве могут быть сомненья?