Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные

@omgdimas163 · Регистрация: 18.12.2013

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

Пожалуйста помогите, нужно решить 3 задачи

1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные, затем нули, затем отрицательные.

2. Дан массив А(N). Заменить нулями все элементы между максимальным и минимальным элементами.

3. Дан массив M(N). Удалить из массива все элементы кратные 5.

@centrum · 19.12.2013, 03:19

Первая:

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
Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите вол-во чисел');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
for i:=1 to n do
    write(A[i],' ');
writeln;
writeln('преобразованный массив:');
for i:=1 to n do
   if A[i]<0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]=0 then
      write(A[i], ' ');
for i:=1 to n do
   if A[i]>0 then
      write(A[i], ' ');
end.

Добавлено через 13 минут
Третья:

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
Uses Crt;
Const nmax=25;
Var A:array[1..nmax] of integer;
    B:array[1..nmax] of integer;
    n,i,j:integer;
begin
writeln('введите кол-во элементов');
readln(n);
for i:=1 to n do
     begin
           write(i,'-й: ');
           read(A[i]);
     end;
     writeln('1 массив:');
for i:=1 to n do
    write(A[i],' ');
writeln;
inc(j);
for i:=1 to n do
    if (A[i] mod 5 <> 0) then
    begin
         B[j]:=A[i];
         inc(j);
    end;
n:=j-1;
writeln('2 массив:');
for i:=1 to n do
    write(B[i],' ');
end.

@ildwine · 19.12.2013, 06:34

Комментарий модератора

omgdimas163, одна тема одна задача! Читайте правила форума

Новые блоги и статьи Все статьи Все блоги /
Тестирование Pull Request в Kubernetes с vCluster Mr. Docker 19.07.2025 Часто сталкиваюсь с серьезной дилемой при настройке тестовых окружений для проверки Pull Request в Kubernetes. С одной стороны, каждый PR требует изолированной среды — только так можно гарантировать,. . .	Мой 7 минутный ролик с крамольным предложением про шахматы, предлагаю заценить _Ivana 18.07.2025 p2UhJNMGY94	Десять Middleware Node.js для эффективного кодинга Reangularity 18.07.2025 Когда я только начинал работать с Node. js, количество пакетов в npm меня буквально парализовало. Сегодня их больше 1,3 миллиона — попробуй разберись, что стоит твоего внимания, а что нет. Я потратил. . .	Context и глубины Android mobDevWorks 18.07.2025 В Android разработки Context напоминает воздух - он везде, жизненно необходим, но мало кто может детально объяснить его природу. Мы привыкли получать его как параметр, передавать дальше и. . .	Результаты исследования от команды MCM (июль 2025 г.) Programma_Boinc 18.07.2025 Результаты исследования от команды MCM (июль 2025 г. ) Как сообщалось в наших предыдущих публикациях, мы изучаем гены, которые имеют наибольший рейтинг и ассоциируются с различными видами рака, в. . .
ИИ-чатбот на React с OpenAI и LangChain.js Reangularity 17.07.2025 React давно стал для меня золотым стандартом фронтенд-разработки. Его компонентная структура, виртуальный DOM и однонаправленный поток данных идеально подходят для создания динамичных интерфейсов. . .	Пишем адаптер для локального хранилища S3 на C# stackOverflow 16.07.2025 Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .	Старые замки kumehtar 16.07.2025 Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .	Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB Javaican 15.07.2025 Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .	EmBitz, создание проекта, отладка, прошивка locm 15.07.2025 Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .

@omgdimas163 0 / 0 / 0 Регистрация: 18.12.2013 Сообщений: 10

	Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные 18.12.2013, 23:03. Показов 2072. Ответов 2 Метки нет (Все метки) Пожалуйста помогите, нужно решить 3 задачи 1. Дан массив А (25). Расположить все элементы в таком порядке: сначала все положительные, затем нули, затем отрицательные. 2. Дан массив А(N). Заменить нулями все элементы между максимальным и минимальным элементами. 3. Дан массив M(N). Удалить из массива все элементы кратные 5. 0

Опции темы

Расположить все элементы массива заданным образом: сначала все положительные, затем нули, затем отрицательные

Решение