Подсчитать количество элементов массива, значение которых больше количества элементов массива

@Старичок · Регистрация: 14.05.2015

Author24 — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 28.05.2015, 10:28

Pascal

{Для динамического массива подсчитать количество его элементов, значение
которых больше количества элементов массива}
var
  a:array of integer;
  k,n,i:integer;
begin
  randomize; 
  write('Введите размерность массива: ');  readln(n);
  setlength(a,n);
  for i:=0 to n-1 do
    begin
      a[i]:=random(n*n) - n;
      write(a[i]:4);
      if a[i]>n then
        inc(k);
    end;
  writeln;
  writeln('Количество: ',k);
  readln;
  setlength(a,0);
end.

@Старичок · 28.05.2015, 22:47 **[ТС]**

Спасибо за помощь,но как мне было сказано после показа этой программы-"Она сделана не правильно,т.к. это открытый массив,а не динамический".

Новичок · 28.05.2015, 23:42

Сообщение от Старичок

Она сделана не правильно,т.к. это открытый массив,а не динамический

Бред и ересь...

Добавлено через 2 минуты
И как тогда динамический массив делать? Все время думал что array of Integer - это динамический массив...

@volvo · 28.05.2015, 23:43

Сообщение от Старичок

это открытый массив

Открытым массив может быть только в качестве параметра подпрограммы. Здесь подпрограмм нет. Поэтому такого преподавателя - на мыло... Это именно динамический массив. Но от тебя, конечно, хотели реализации через GetMem, как в допотопном Турбо-Паскале...

Новичок · 28.05.2015, 23:45

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

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

Поэтому такого преподавателя - на мыло...

Согласен.

@volvo · 28.05.2015, 23:52

Новичок, может, лучше доверять докам на определенный компилятор (в данном случае - FPC)? Ясно же сказано, что такое открытый массив

Free Pascal supports the passing of open arrays, i.e. a procedure can be declared with an array of unspecified length as a parameter

и что - динамический массив

Новичок · 28.05.2015, 23:54

volvo, да, лучше всего доверять докам, ибо там 100% не наврут.

@Старичок · 29.05.2015, 00:18 **[ТС]**

Ну,она мне так заявила..и еще,что это программа должна выглядеть вот что-то типа этого...

Pascal

Program Srednee;
  Const NMax = 10000;
  Type N = 1..NMax;
       MasInt = Array[N] Of Integer;
  Var Dint : ^MasInt;
      I,K,Mint : LongInt; S : string;

(это начало)..

Новичок · 29.05.2015, 00:26

Сообщение от Старичок

Ну,она мне так заявила..и еще,что это программа должна выглядеть вот что-то типа этого...

Такой бред...Есть же нормальный динамический массив в FPC...

@Старичок · 29.05.2015, 00:29 **[ТС]**

У каждого свои тараканы в голове,как известно)Тем более,что эти задачи она сама составляет..

@Старичок 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 11
	29.05.2015, 00:29 [ТС]	11
	У каждого свои тараканы в голове,как известно)Тем более,что эти задачи она сама составляет.. 0

@Старичок 0 / 0 / 0 Регистрация: 14.05.2015 Сообщений: 11
	28.05.2015, 22:47 [ТС]	3
	Спасибо за помощь,но как мне было сказано после показа этой программы-"Она сделана не правильно,т.к. это открытый массив,а не динамический". 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	28.05.2015, 23:42	4
	Сообщение от Старичок Она сделана не правильно,т.к. это открытый массив,а не динамический Бред и ересь... Добавлено через 2 минуты И как тогда динамический массив делать? Все время думал что array of Integer - это динамический массив... 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	28.05.2015, 23:43	5
	Сообщение от Старичок это открытый массив Открытым массив может быть только в качестве параметра подпрограммы. Здесь подпрограмм нет. Поэтому такого преподавателя - на мыло... Это именно динамический массив. Но от тебя, конечно, хотели реализации через GetMem, как в допотопном Турбо-Паскале... 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	28.05.2015, 23:45	6
	Ну вот здесь тоже кстати говорят что это открытый массив. Но я больше верю тому, что пишут в вики. Сообщение от volvo Поэтому такого преподавателя - на мыло... Согласен. 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	28.05.2015, 23:52	7
	Новичок, может, лучше доверять докам на определенный компилятор (в данном случае - FPC)? Ясно же сказано, что такое открытый массив Free Pascal supports the passing of open arrays, i.e. a procedure can be declared with an array of unspecified length as a parameter и что - динамический массив 1

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	28.05.2015, 23:54	8
	volvo, да, лучше всего доверять докам, ибо там 100% не наврут. 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	29.05.2015, 00:26	10
	Сообщение от Старичок Ну,она мне так заявила..и еще,что это программа должна выглядеть вот что-то типа этого... Такой бред...Есть же нормальный динамический массив в FPC... 0