динамические переменные и массивы

[Veronika_13]

Pascal ABC. Для динамического массива подсчитать количество его элементов, равных наибольшему элементу массива.

[Streletz]

Самостоятельные попытки были? Где наработки?

[Veronika_13]

наработок нет, т.к. пропустила лекцию с этой темой

[ZX Spectrum-128]

Пропуск лекции не проблема.
http://pascalabc.net/downloads/pabcn..._Help_Web.html
Уточните, пожалуйста, pascalabc или pascalabc.net?
Как мне подсказали, во втором случае ссылка не туда.

[Veronika_13]

Pascal ABC. и как-то вообще не удалось разобраться

[puporev]

Залез тут в простой Паскаль АВС, там есть контейнерные классы, в том числе и динамические массивы (см. Помощь->Стандартные модули->Containers-> Динамические массивы)
Вот решение этой задачи той штуковиной

uses containers;
var  a:IntArray;
     n,i,k:integer;
begin
write('Размер массива n=');
readln (n);
a:=IntArray.Create;
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write ('el[',i,']=');
  readln (k);
  a.Add(k);
 end;
writeln ('Исходный массив:');
a.Print;
writeln;
k:=0;
for i:=1 to n do
if a.Get(i)=a.MaxElement then inc(k);
writeln('Максимальный элемент=',a.MaxElement);
write('Количество элементов, равных максимальному=',k);
a.Destroy
end.

[Veronika_13]

Сообщение от puporev

Залез тут в простой Паскаль АВС, там есть контейнерные классы, в том числе и динамические массивы (см. Помощь->Стандартные модули->Containers-> Динамические массивы)
Вот решение этой задачи той штуковиной

uses containers;
var  a:IntArray;
     n,i,k:integer;
begin
write('Размер массива n=');
readln (n);
a:=IntArray.Create;
writeln('Введите ',n,' элементов массива:');
for i:=1 to n do
 begin
  write ('el[',i,']=');
  readln (k);
  a.Add(k);
 end;
writeln ('Исходный массив:');
a.Print;
writeln;
k:=0;
for i:=1 to n do
if a.Get(i)=a.MaxElement then inc(k);
writeln('Максимальный элемент=',a.MaxElement);
write('Количество элементов, равных максимальному=',k);
a.Destroy
end.

большое спасибо

[Veronika_13]

всё бы хорошо, но фраза преподаватель "это не динамический массив" оборвала всё удачу. помогите, подскажите, что не так???

[puporev]

Те динамические масивы что есть в Делфи и в Паскале АВС.net в простом АВС нет.Не работают также и динамические массивы что делаются в Турбо Паскале. Короче я не знаю, что Вам нужно. В конце концов Вы учитесь а не я, спрашивайте преподов, нахрена они деньги за вас не шибко умных получают?