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

[veronika55214]

Для динамического массива подсчитать количество его элементов, принадлежащих интервалу [-10; 10].

[Stilet]

var a:array of integer; i,c:integer;
begin
 readln(i); SetLength(a,i); c:=0;
 for i:=Low(a) to High(a) do begin
  readln(a[i]); if a[i] in [-10..10] then inc(c); write(a[i]:5);
 end;
 SetLength(a,0); writeln;
 write(c); 
 readln;
end;

Идея ясна?

[veronika55214]

эм...нет((

[Stilet]

Что именно не ясно?

[veronika55214]

по сути.. совсем не понимаю задачи..

[ZX Spectrum-128]

var a:array of integer; // обьявляем динамический массив
i,c:integer;
begin
 readln(i); 
 SetLength(a,i); //устанавливаем размерность массива
 c:=0;
 for i:=Low(a) to High(a) do begin //в цикле перебираем
  readln(a[i]); //вводим очередной элемент массива
  if a[i] in [-10..10] then // если попадаем в интервал
     inc(c); // то увеличиваем количество на 1
     write(a[i]:5); //
 end;
 SetLength(a,0); // массив в 0
 writeln;
 write(c); 
 readln;
end;

совсем не понимаю

А сейчас понятнее?

[veronika55214]

а дальше?((((

[veronika55214]

и это просто массив, а мне нужно при помощи Динамического массива

[Аватар]

А паскаль то какой? Не в каждом есть SetLength

и это просто массив, а мне нужно при помощи Динамического массива

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

а дальше?

Завязуйте с паскалем

[veronika55214]

я бы с радостью)) да вот только отучиться нужно, а потом с радостью завяжу с ним))
Паскаль АВС или Паскаль АВС.Нет без разницы))