Удалить из массива все элементы, первая цифра которых четная

@new12 · Регистрация: 07.01.2012

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

Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-35;75].
1)-удалить из него все элементы , первая цифра которых четная.
2)-вставить число k1 после всех элементов, больших заданного числа, а число k2- перед всеми элементами, кратными 3 (k1 и k2 вводить с клавиатуры).
3)- перенести первые k элементов в конец, то есть: a[k+l], a[k+2],...,a[n],a[1],a[2],...a[k].

@Electroflower · 07.01.2012, 13:55

хм, а что именно не получается? Неужто все не получается?
вот вам для начала заполнение массива:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
var n,i:integer;
begin
n:=25;
randomize;
for i:=1 to n do
begin
R[i]:=random(75)-35;
Edit1.Text:=Edit1.Text+'  '+inttostr(R[i]);
end;
end;

Добавлено через 1 минуту
Вот так наверно понятнее заполнение(это на Delphi7)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  Form1: TForm1;
  R:array [1..25] of integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var n,i:integer;
begin
n:=25;
randomize;
for i:=1 to n do
begin
R[i]:=random(75)-35;
Edit1.Text:=Edit1.Text+'  '+inttostr(R[i]);
end;
end;

@new12 · 07.01.2012, 14:04 **[ТС]**

не получается само решение,
заполнение массива у меня правильное.
программа удаляет некоторые числа первая цифра которых четная, некоторые-но не все.
во-торой число вставляется но не после элементов больших заданного числа, а перед.
в общем все как-то решается,но не так как нужно.

@Electroflower · 07.01.2012, 14:09

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

@new12 · 07.01.2012, 14:21 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program primer1;
uses crt;
const n=25;
var a:array [1..n] of integer;
i,k,n,m:integer;
begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(75+35)-35;
writeln('a[',i,']=',a[i],'');
end;
writeln('-----------');
for i:=1 to n do begin
k:= a[i] div 10;
if  (k mod 2=0) then a[i]:=a[i+1];
end;
writeln('a[',i,']=',a[i],'');
readln;
end.

Добавлено через 1 минуту
да нужно именно чтоб удаляло число вместе с его порядковым номером
а у меня видимо просто переход к следующему.

@versa4e · 07.01.2012, 16:25

1.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
const
  n=25;
type
  Tarr=array[1..n] of shortint;
var
  a:Tarr;
  i,j,newSize:byte;
function isFirstEven(a:shortint):boolean;
var
  f:boolean;
begin
  f:=false;
  a:=abs(a);
  while a>9 do
    a:=a div 10;
  if a mod 2=0 then
    f:=true;
  isFirstEven:=f;
end;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-35+random(111);
      write(a[i]:4);
    end;
  writeln;
  newSize:=n;
  i:=1;
  while i<=newSize do
    begin
      if isFirstEven(a[i]) then
        begin
          for j:=i to newSize-1 do
            a[j]:=a[j+1];
          newSize:=newSize-1;
        end
      else
        inc(i);
    end;
  writeln('Poluchenniy massiv:');
  for i:=1 to newSize do
    write(a[i]:4);
end.

Добавлено через 1 час 20 минут
2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
const
  n=25;
type
  Tarr=array[1..n*3] of integer;
var
  a:Tarr;
  i,j,newSize,k1,k2,c:integer;
begin
  randomize;
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      a[i]:=-35+random(111);
      write(a[i]:4);
    end;
  writeln;
  write('k1,k2=');
  readln(k1,k2);
  write('Zadannoe chislo:');
  readln(c);
  newSize:=n;
  i:=1;
  while i<=newSize do
    begin
      if a[i]>c then
        begin
          if a[i] mod 3<>0 then
            begin
              inc(newSize);
              for j:=newSize downto i+2 do
                a[j]:=a[j-1];
              a[i+1]:=k1;
              inc(i,2);
            end
          else
            if a[i] mod 3=0 then
              begin
                inc(newSize,2);
                for j:=newSize downto i+2 do
                  a[j]:=a[j-2];
                a[i+1]:=a[i];
                a[i]:=k2;
                a[i+2]:=k1;
                inc(i,3);
              end;
        end
      else 
        if a[i] mod 3=0 then
          begin
            inc(newSize);
            for j:=newSize downto i+1 do
              a[j]:=a[j-1];
            a[i]:=k2;
            inc(i,2);
          end
      else
        inc(i);
    end;
  writeln('Massiv posle vstavki ',k1,' posle vseh el., kot. bolshe ',c);
  writeln('i vstavki ',k2,' pered el. kratnymi 3:');
  for i:=1 to newSize do
    write(a[i]:4);
end.

@TirAnno69 · 02.12.2017, 10:10

А если нужно

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

число k2- перед всеми элементами, кратными 3 (k1 и k2 вводить с клавиатуры).

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

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

Удалить из массива все элементы, первая цифра которых четная

Решение

Решение

@new12 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 3

	Удалить из массива все элементы, первая цифра которых четная 07.01.2012, 13:35. Показов 6330. Ответов 6 Метки нет (Все метки) Дан массив целых чисел (n=25), заполненный случайным образом числами из промежутка [-35;75]. 1)-удалить из него все элементы , первая цифра которых четная. 2)-вставить число k1 после всех элементов, больших заданного числа, а число k2- перед всеми элементами, кратными 3 (k1 и k2 вводить с клавиатуры). 3)- перенести первые k элементов в конец, то есть: a[k+l], a[k+2],...,a[n],a[1],a[2],...a[k]. 0

@new12 0 / 0 / 0 Регистрация: 07.01.2012 Сообщений: 3
	07.01.2012, 14:04 [ТС]
	не получается само решение, заполнение массива у меня правильное. программа удаляет некоторые числа первая цифра которых четная, некоторые-но не все. во-торой число вставляется но не после элементов больших заданного числа, а перед. в общем все как-то решается,но не так как нужно. 0

@Electroflower Shiningemerald 384 / 117 / 22 Регистрация: 05.01.2012 Сообщений: 951
	07.01.2012, 14:09
	можно код программы глянуть? вам нужно именно чтобы удаляло число? или можно его заменить , к примеру нулем? 0

Опции темы