задача на формирование массива. паскаль

[Ananim-Pbl6ak]

Ввести последовательность целых чисел. Сформировать массив из чисел исходной последовательности, меньших по абсолютной величине корня кубического из Max, и вектор из ее четных чисел, больших квадрата Min

додумал начало

Program FormMassive;
const
dim=10;
type
Tvector=Array[1..dim] of byte
var
VI,VR,Tvector;
KI,KR,I;byte;
begin
write ('Задайте количество чисел не больше чем ',dim,' ');
readln (KI);
writeln ('Введите ',KI,' натуральных чисел');

[Gonzo]

Можешь добавить отзыв.

uses crt;
const
dim=50;
type
Tvector=Array[1..dim] of byte;
var
a,b,c:Tvector;
n,i,min,ind1,ind2,i1_,i2_:byte;
max:real;
begin
 clrscr;
 repeat
 write ('Zadaite kolichestvo chisel: ');
 readln (n);
 until (n>0) and (n<=dim);
 writeln ('Vvodite elementy posledovatelnosti: ');
 for i:=1 to n do
  begin
   write(' -> ');
   readln(a[i]);
  end;
 max:=a[1];
 min:=a[1];
 for i:=1 to n do
  begin
   if max<a[i] then max:=a[i];
   if min>a[i] then min:=a[i];
  end;
 max:=exp(1/3*ln(max));
 min:=sqr(min);
 ind1:=1;ind2:=1;
 for i:=1 to n do
  begin
   if abs(a[i])<max then
    begin
      b[ind1]:=a[i];
      ind1:=ind1+1;
    end;
   if (a[i] mod 2 = 0) and (a[i]>min) then
    begin
      c[ind2]:=a[i];
      ind2:=ind2+1;
    end;
  end;
 i1_:=1;i2_:=1;
 clrscr;
 write('ISHODNAIA POSLEDOVATELNOST: ');
 for i:=1 to n do write(a[i],' ');
 readln;
 write('PERVAIA POSLEDOVATELNOST: ');
 while i1_<ind1 do
  begin
   write(b[i1_],' ');
   i1_:=i1_+1;
  end;
 readln;
 write('VTORAIA POSLEDOVATELNOST: ');
 while i2_<ind2 do
  begin
   write(c[i2_],' ');
   i2_:=i2_+1;
  end;
 readln;
end.

[Ananim-Pbl6ak]

ууу програмище а попроще ни как нельзя ее решить через if и если не сложно переменные что обозначают

[Gonzo]

Я немного подправил, скиньте себе иправленный вариант.
А так куда уж проще? В принципе она и решается через if. Можно её немного сократить за счет того, что оформить вывод массива в отдельную процедуру с входными параметрами: массив, индекс последнего элемента.
Переменные: Min,Max: минимум, максимум. А затем квадрат и модуль куб.корня из этих элементов соотв.
ind1,ind2 - кол-во элементов первого и второго результ. массивов соотв.
i1_,i2_ - индексы этих массивов

[Ananim-Pbl6ak]

можно сделать ввод в виде

for I:=1 to KI do
read(VI[I]);

вместо репита

[Gonzo]

и зачем, собств?!

[Ananim-Pbl6ak]

просто требуют так если конечно не сложно

[Лунатик222]

Сообщение от Ananim-Pbl6ak

просто требуют так если конечно не сложно

я же решил тебе эту задачу на эзервее))

[Gonzo]

Учите паскаль!