Динамический массив. Free Pascal

[User_1]

Динамический массив. Free Pascal

Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его положительных элементов

Нужно что бы массив задавался аналогично как в этом примере: Десять раз генерировать последовательность из случайного количества целых чисел от 0 до 99. В каждой последовательности найти максимальное число. Сохранить эти максимальные числа и вывести их на экран.

Type arrdin = array[1..40] of integer; 
Var  arrmax: array[1..10] of integer; 
     row: ^arrdin;   				              
     n, i, j, k: integer;
begin
  randomize;
  for i:=1 to 10 do 
  Begin
    n:=random(40)+1;
    getmem(row,n*sizeof(integer));
    for k:=1 to n do           
    Begin
      row^[k]:=random(100); write(row^[k],',') 
    End; Writeln;
    arrmax[i]:=row^[1];	  
    for k:=2 to n do
     if row^[k]>arrmax[i] then arrmax[i]:=row^[k];
    freemem(row,n*sizeof(integer));
  end;
  for i:=1 to 10 do write(arrmax[i],' ');          
  Writeln
end.

 

[Vladimir_S]

Да пожалуйста:

{$R-}
Const
 N=50;

Type
 arrdin = array[1..1] of integer;

Var
 row: ^arrdin;
 Med: Real;
 i,K: integer;

Begin
  randomize;
  Med:=0;
  K:=0;
  getmem(row,N*sizeof(integer));
  for i:=1 to N do
   begin
    row^[i]:=-20+random(100);
    write(row^[i]:5);
    if row^[i]>0 then
     begin
      Inc(K);
      Med:=Med+row^[i];
     end;
   end;
  Writeln;
  Writeln;
  if K=0 then
   Writeln('No positive elements!')
  else
   begin
    Med:=Med/K;
    K:=0;
    for i:=1 to N do
     if row^[i]>Med then Inc(K);
    Writeln('Result: ',K,' elements');
   end;
  freemem(row,N*sizeof(integer));
  Readln
End.

 

[Uncle Vasya]

Я бы объявил константу
Const
MAX_N = 32768;

и массив

arrdin = array[1..MAX_N] of integer;

и если N заранее не известно и будет вводиться пользователем, то сравнивать с MAX_N.

Всё равно память выделяется getmem, но не пришлось бы проверку диапазонов отключать.

 

[Vladimir_S]

Я бы объявил константу
Const
MAX_N = 32768;

и массив

arrdin = array[1..MAX_N] of integer;

и если N заранее не известно и будет вводиться пользователем, то сравнивать с MAX_N.

Всё равно память выделяется getmem, но не пришлось бы проверку диапазонов отключать.

Мне кажется, тогда выхолащивается весь смысл динамической адресации. В том-то её и "изюминка", что можно заранее не выделять, как в статической, память "по максимуму", а брать при выполнении программы, сколько надо, потом возвращать, потом снова брать и т.д. А у Вас как-то весь смысл такого подхода улетучивается.
Что касается проверки диапазонов, то она, как правило, и так по умолчанию отключена. Что мне, к слову сказать, напрочь непонятно. Ибо и сам на этом подрывался, и, насколько знаю, отсутствие такого контроля - основная причина пресловутых "уязвимостей" и ОС, и приложений.
Поэтому у меня она включена в настройках Паскаля, и отключается только принудительно.

 

[Uncle Vasya]

Мне кажется, тогда выхолащивается весь смысл динамической адресации. В том-то её и "изюминка", что можно заранее не выделять, как в статической, память "по максимуму", а брать при выполнении программы, сколько надо, потом возвращать, потом снова брать и т.д. А у Вас как-то весь смысл такого подхода улетучивается.

Почему же? Память по-прежнему выделяется getmem и отдаётся через freemem. Сейчас во всяких разных Паскалях по-разному можно делать, а где-то ещё старый добрый TP7.0 изучают. Я совсем не уверен, как ведет себя в разных версиях контроль границ.

отсутствие такого контроля - основная причина пресловутых "уязвимостей" и ОС, и приложений.

Верно, лучше пусть поломается с ошибкой, чем как попало отработает и выдаст какой попало результат!

 

[Vladimir_S]

Пошел не относящийся к теме флуд.
:closed: