Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево

@Insane300 · Регистрация: 10.10.2009

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

1. Одномерный массив А длиной М. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево Дан одномерный массив А длиной N. Подсчитать количество минимальных элементов массива.

2 Дан одномерный массив А длиной М. Найти первый минимальный элемент и поменять его местами с последним элементом массива.

блин, аттестацию нада срочна исправитть((((

@Давид · 22.10.2009, 23:03

Insane300, Вот номер 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
program hhh;
Uses crt;
 Var a:array [1..100] of integer;
     i,j,j1,k,m,min,q:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (m);
 for i:=1 to m do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (a[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to m do write (a[i]:3);
writeln;
Min:=a[1];
for i:=1 to m do
  if a[i]<min then begin
                    min:=a[i];
                    j:=i;
                    end;
Writeln (' Min element = ',min);
Writeln;
Write (' poslednii element = ');
for i:=1 to m do
                 begin
                 k:=a[i];
                 j1:=i;
                 end;
Writeln (k);
Writeln;
                 q:=a[j1];
                 a[j1]:=a[j];
                 a[j]:=q;
Writeln (' polucheno ');
For i:=1 to m do write (a[i]:3);
Readln
end.

Не по теме:

Незабываем про кнопочку "спасибо"

Добавлено через 10 минут

Дан одномерный массив А длиной N. Подсчитать количество минимальных элементов массива.

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
program hhh;
Uses crt;
 Var a:array [1..100] of integer;
     i,k,m,min:integer;
begin
clrscr;
Writeln (' Vvedite kol - vo elementov ');
Readln (m);
 for i:=1 to m do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (a[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to m do write (a[i]:3);
writeln;
Min:=a[1];
for i:=1 to m do
  if a[i]<min then begin
                   min:=a[i];
                   j:=i;
                   end;
k:=0;
for i:=1 to m do
    if a[i]=min then k:=k+1;
writeln;
Writeln (' Min element = ',min);
writeln ('kolichestvo = ',k);
Writeln;
Readln
end.

@mamedovvms · 22.10.2009, 23:05

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

Найти первый минимальный элемент и поменять его местами с последним элементом массива.

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

@Давид · 22.10.2009, 23:07

mamedovvms, Дак в задании точно так же написано)))

с последним элементом массива

@mamedovvms · 22.10.2009, 23:11

Так можно сократить вторую задачу

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
 
program hhh;
Uses crt;
 Var a:array [1..100] of integer;
     i,k,m,min:integer;
begin
clrscr;
min=maxinteger;
Writeln (' Vvedite kol - vo elementov ');
Readln (m);
 for i:=1 to m do
   begin
     write ('Vvedite ',i, ' element ');
      Readln (a[i]);
      if min>a[i] then min:=a[i];
   end;
k:=0;
Writeln (' polycheny chisla ');
for i:=1 to m do
begin
 write (a[i]:3);
 if min=a[i] then k:=k+1;
end;
writeln;
Writeln (' Min element = ',min);
writeln ('kolichestvo = ',k);
Readln
end.

@Давид · 22.10.2009, 23:13

mamedovvms, ну да....там индекс не нужен)))

@mamedovvms · 22.10.2009, 23:14

Сообщение от Давид

for i:=1 to m do
begin
k:=a[i];
j1:=i;
end;

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

Pascal
1
Write (' poslednii element = ',a[m]);

@Давид · 22.10.2009, 23:17

mamedovvms, хмм...нас так учили)))ну ладно спорить не буду...так на самом деле лучше)

@arch-vile · 22.10.2009, 23:19

Не по теме:

Сообщение от Давид

Незабываем про кнопочку "спасибо"

Давид, Правила форума почитайте (пункт 3.10)!..

@mamedovvms · 22.10.2009, 23:21

Сообщение от Давид

нас так учили)))ну ладно спорить не буду...так на самом деле лучше)

вас так учили???
ты хочешь сказать что если в массиве 100 элементов то надо просто перебрать все 99 что бы получить последний???
Ты глупости то не говори не может быть такого
Хотя на это есть два варианта либо ты не понял где надо это применять, что скорее всего, либо препод запарился

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево

Решение

Решение

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

	Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево 22.10.2009, 22:44. Показов 2737. Ответов 9 Метки нет (Все метки) 1. Одномерный массив А длиной М. Переместить нулевые элементы массива в конец, сдвинув остальные элементы влево Дан одномерный массив А длиной N. Подсчитать количество минимальных элементов массива. 2 Дан одномерный массив А длиной М. Найти первый минимальный элемент и поменять его местами с последним элементом массива. блин, аттестацию нада срочна исправитть(((( 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	22.10.2009, 23:13
	mamedovvms, ну да....там индекс не нужен))) 1

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	22.10.2009, 23:17
	mamedovvms, хмм...нас так учили)))ну ладно спорить не буду...так на самом деле лучше) 1