Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 23.03.2023, 12:41   #1
Esmadjin
Пользователь
 
Регистрация: 05.03.2023
Сообщений: 14
По умолчанию дан одномерный массив A(N) СОСТАВИТЬ ПРОГРАММУ НА ПАСКАЛИ ABC

удалить элементы одномерного массива которые содержат только четные цифры
Esmadjin вне форума Ответить с цитированием
Старый 23.03.2023, 16:51   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const n = 20;
var a: array of integer;
    i, j: integer;
begin
   Randomize;
   SetLength(a, n);
   for i:=Low(a) to High(a) do
   begin
      a[i]:=Random(21);
      Write(a[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   i:=0;
   while i<=High(a) do
   begin
      if a[i] mod 2 = 0 then
      begin
         for j:=i to High(a)-1 do
            a[j]:=a[j+1];
         SetLength(a, High(a));
         Dec(i);
      end;
      Inc(i);
   end;
   for i:=Low(a) to High(a) do
      Write(a[i]:3, '  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 23.03.2023, 17:06   #3
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

newerow1989, по заданию нужно проверять все цифры на четность, а не сам элемент. А еще каждый раз двигать хвост и менять длину массива достаточно накладно. Лучше так:
Код:
i := 0;
j := 0;
for i := Low(a) to High(a) do
  if check(a[i]) then
  begin
    a[j] := a[i];
    Inc(j);
  end;
SetLength(a, j);
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан одномерный массив. Составить программу на pascal Esmadjin Помощь студентам 1 05.03.2023 17:21
Составить программу формирующий одномерный массив f1wa31 Помощь студентам 4 01.07.2018 09:30
Дан массив A размером 3*3. Составить программу, записывающие положительные элементы этого массива A в одномерный массив B, а отрицательные - в одномерный массив C SkaNi Паскаль, Turbo Pascal, PascalABC.NET 1 02.06.2017 08:07
необходимо составить код на одномерный массив в ВБА илья1992 Помощь студентам 8 13.04.2015 15:42
Дан одномерный массив А(N) .Составить программу. cjcezar Помощь студентам 4 27.11.2011 13:40