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

@Анна7505 · Регистрация: 20.01.2014

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

Напишите программу

1. Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями.

@newyork7776 · 25.01.2014, 20:51

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
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..100] of Integer;
    i,n,a,b:Integer;
begin
  Randomize;
  Write('Enter size of array = ');Readln(n);
  write('Enter Start = ');Readln(a);
  write('Enter Finish = ');Readln(b);
  if (a>b) then begin i:=a;a:=b;b:=i;end;
  writeln('Array [start] = ');
  for i:=1 to n do
    begin
      mas[i]:=Random(10)-5;
      Write(mas[i],' ');
    end;
  Writeln;
  Writeln('Array [finish] = ');
  for i:=1 to n do
    begin
      if (a<=Abs(mas[i])) and (Abs(mas[i])<=b) then mas[i]:=0;
      write(mas[i],' ');
    end;
  Writeln;
  Readln;
end.

Добавлено через 3 минуты
вот теперь правельно

Кликните здесь для просмотра всего текста

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
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var mas:array [1..100] of Integer;
    q,i,n,a,b:Integer;
begin
  Randomize;
  Write('Enter size of array = ');Readln(n);q:=0;
  write('Enter Start = ');Readln(a);
  write('Enter Finish = ');Readln(b);
  if (a>b) then begin i:=a;a:=b;b:=i;end;
  writeln('Array [start] = ');
  for i:=1 to n do
    begin
      mas[i]:=Random(10)-5;
      Write(mas[i],' ');
    end;
  Writeln;
  Writeln('Array [finish] = ');
  for i:=1 to n do
    begin
      if (a<=Abs(mas[i])) and (Abs(mas[i])<=b) then begin mas[i]:=0;Inc(q);end
      else write(mas[i],' ');
    end;
  for i:=1 to q do
    begin
      Write('0 ');
    end;
  Writeln;
  Readln;
end.

Добавлено через 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
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var ans,mas:array [1..100] of Integer;
    k,q,i,n,a,b:Integer;
begin
  Randomize;k:=1;
  Write('Enter size of array = ');Readln(n);q:=0;
  write('Enter Start = ');Readln(a);
  write('Enter Finish = ');Readln(b);
  if (a>b) then begin i:=a;a:=b;b:=i;end;
  writeln('Array [start] = ');
  for i:=1 to n do
    begin
      mas[i]:=Random(10)-5;
      Write(mas[i],' ');
    end;
  Writeln;
  Writeln('Array [finish] = ');
  for i:=1 to n do
    begin
      if (a<=Abs(mas[i])) and (Abs(mas[i])<=b) then begin mas[i]:=0;Inc(q);end
      else begin ans[k]:=mas[i];Inc(k);end;
    end;
  for i:=1 to q do
    begin
      ans[k]:=0;
      Inc(k);
    end;
  for i:=1 to n do
    begin
      Write(ans[i],' ');
    end;
  Writeln;
  Readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Сложность Колмогорова: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .	C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .
Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .	Python и PDF: Создание и редактирование файлов py-thonny 20.03.2025 Работа с PDF-документами – одна из популярных задач в современной разработке. Python предлагает несколько инструментов для создания, чтения и редактирования PDF-файлов, среди которых особенно. . .	Корутины в Unity и производительность WaitForSeconds GameUnited 20.03.2025 Разработчики игр на Unity часто сталкиваются с вопросом: как выполнять действия через определённые промежутки времени, не блокируя основной поток игры? Тут как раз и приходят на помощь корутины —. . .

@Анна7505 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 7

	Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b] 25.01.2014, 20:20. Показов 820. Ответов 1 Метки нет (Все метки) Напишите программу 1. Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых находится в интервале [a,b]. Освободившиеся в конце массива элементы заполнить нулями. 0

Опции темы