Задание в Delphi

[St1mkA]

Сжать массив, удалить из неговсе эллементы, модуль которых находится в интервале [a,b].

[zmey31313]

А наработки то есть?

[St1mkA]

Нету(( только задание: В одномерном массиве, состоящем из n вещественных элл-ов: Сжать массив, удалив из него все элементы, модуль которых находиться в интервале [a, b]

[Манжосов Денис :)]

program Project2;
const
  N = 10;
var
  i: integer;
  a,b: real;
  m: array [1..N] of real;
begin
  Randomize;
  Write('a = ');
  ReadLn(a);
  Write('b = ');
  ReadLn(b);
  for i := 1 to N do
    //ReadLn(a[i]);
    m[i] := Random(10) + 1;
  for i := 1 to N do
    if Abs(m[i]) in [a..b] then
    {begin
      for j := i to N-1 do
       m[i] := m[i+1];
    end;}
      m[i] := 0;
  Write('END = ');
  for i := 1 to N do
    Write(m[i], ' ');
  ReadLn;
end.

[zmey31313]

Вот мой вариант на Паскале работает отлично только что сделал:

program zadacha;
const
  n = 5;
var
  c : array[1..n] of integer;
  a, b, i, k, z : integer;
begin
  writeln('Введите интервал от А до В: ');
  readln(a, b);
  for i := 1 to n do
   begin
   k := random(10);
   c[n] := k;
   z := z + 1;
    If a > z then
      begin
        writeln('c[', i, '] := ',c[n]);
      end;
    If z > b then
      begin
        writeln('c[', i, '] := ',c[n]);
      end;
   end;
end.

|=>

[St1mkA]

Спасибо большое, но как это в Delphi записать я не понимаю(((((((

[zmey31313]

А вам надо как сделать, консольным приложением или обычным?

program Pro1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 5;

var
  c : array[1..n] of integer;
  a, b, i, k, z : integer;

begin
  writeln('Vvod A and B: ');
  readln(a, b);
  for i := 1 to n do
   begin
   k := random(10);
   c[n] := k;
 {  z := z + 1; }
    If a > i then
      begin
        writeln('c[', i, '] := ',c[n]);
      end;
    If i > b then
      begin
        writeln('c[', i, '] := ',c[n]);
      end;
   end;
readln;
end.

[St1mkA]

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

А вам надо как сделать, консольным приложением или обычным?

Обычным нужно, в консоли не принимают!