Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 06.03.2012
Сообщений: 4

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

06.03.2012, 13:59. Показов 1464. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан массив удалить элементы перед всеми элементами в которых есть цифра 1.
помогите кто сможет.задача для 10го класса буду очень благодарна!
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.03.2012, 13:59
Ответы с готовыми решениями:

Вставить число К перед всеми элементами в которых есть цифра 2
дан массив целых чисел (n=10) заполненій случайным образом. вставить число К перед всеми элементами в которых есть цифра 2. ( к-вводить с...

Удалить из массива все элементы, в которых есть цифра 5
Дан массив целых чисел (n=10), заполненный случайным образом числами из промежутка : 1. описать вводы и вывод массива. 2.удалить из...

Удалить из массива все элементы, в которых предпоследняя цифра четная
Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка . − удалить из него все элементы, в которых ...

2
 Аватар для Стрелок
43 / 43 / 27
Регистрация: 29.02.2012
Сообщений: 73
06.03.2012, 15:21
Лучший ответ Сообщение было отмечено катя евстифеева как решение

Решение

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
program zz;
var i,g:integer;
    mas:array[1..1000] of string;
    st:string;
    d1,d2:text;
begin
assign(d1, 'input.txt');
assign(d2, 'output.txt');
reset(d1);
i:=1;
g:=0;
 while not EOF(d1) do
  begin
   readln(d1, mas[i]);
   i:=i+1;
   g:=g+1;
  end;
close(d1);
rewrite(d2);
 for i:=1 to g do
  begin
   st:=mas[i];
    if st[1]='1' then
     begin
      {ничего не делаем}
     end
    else
     begin
      writeln(d2, mas[i]);
     end;
  end;
close(d2);
end.
0
 Аватар для [WRG]
53 / 53 / 37
Регистрация: 20.11.2011
Сообщений: 243
Записей в блоге: 1
06.03.2012, 21:17
вместо вот этого ужаса
Pascal
1
2
3
begin
   {ничего не делаем}
end
нужно юзать continue, которое просто пропустит текущую интерацию цикла.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.03.2012, 21:17
Помогаю со студенческими работами здесь

Удалить из массива все элементы, в которых первая цифра нечетная
Надеюсь кто-то сможет помочь. Дан массив целых чисел (n=15), заполненный случайным образом числами из промежутка . − удалить из...

Удалить все элементы массива, в которых последняя цифра четная, а само число делится на неё
Дана массив (n), n <=20, заполненный случайными числами из интервала . Разработайте программу, которая удаляет все элементы, в которых...

Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы массива Х вычисляются по формуле Xi=((-1)^i)*((i^2)-3*i), где i=1,2,...,10.
Удалить элементы расположенные между максимальным и минимальным элементами массива Х. Элементы массива Х вычисляются по формуле...

Вставить по одному элементу перед всеми элементами, кратными заданному числу
Вставить по одному элементу перед всеми элементами, кратными заданному числу.

Задать массив целыми числами в диапазоне [0.100] и удалить все элементы , у которых последняя цифра 8
Задать массив целыми числами в диапазоне и удалить все элементы , у которых последняя цифра 8


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru