Замена элементов в строках

@globalplease · Регистрация: 19.02.2019

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

Как работать с числами, стоящими за МАКСИМАЛЬНЫМ в строке массива?
Например 5 6 3 9 3 4 6. Максимальное - 9, а мне нужно следующие за ним числа 3 4 6 заменить на эту девятку, чтоб получилась новая строка 5 6 3 9 9 9 9?

Pascal    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure grrr;
var
i,j:integer; 
begin
Readln(STROK);
Readln(STOLBCOV);
randomize;
for i:=1 to STROK do begin
for j:=1 to STOLBCOV do begin a[i,j]:=random(199)-99; write(a[i,j]:5); 
end;
writeln;
end;
for i:=1 to 4 do begin writeln('строка №',i);
for j:=1 to STOLBCOV do begin write(a[i, j]:5); end; 
end;

Решение , ПОЖАЛУЙСТА, по этому коду. Спасибо!

@Sun Serega · 18.03.2019, 01:17

Я вам уже ответил тут:
Максимальный элемент, присвоение
Не создавайте дубли

Код рабочий, если не понимаете и не ленитесь разобраться - я всё объясню, что спросите (но только в той теме).

А рассказывать "учитель не примет" не надо, я сам через это проходил, и если понимать программу и уметь объяснить учителю - программу принимают, всегда.

@globalplease · 18.03.2019, 01:32 **[ТС]**

Я не спорю, ВАШ код рабочий, но мне нужно именно под МОЙ код сделать ее. Для меня - это целая проблема, а для вас , Сергей, как для профи. это одна минута. И почему Вы всегда ссылаетесь на то, чтоб пользователь, задающий вопрос, разбирался и понимал , что ему надо сделать? Лично я пришел на эту площадку, чтоб мне РЕШИЛИ задачу, а не направляли читать учебные пособия или что-то подобное.

@Sun Serega · 18.03.2019, 01:37

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

Лично я пришел на эту площадку, чтоб мне РЕШИЛИ задачу, а не направляли читать учебные пособия или что-то подобное.

И я её вам решил. Зачем вам теперь другое решение? Обычно, тем кто приходит за решением - сойдёт любое, а тем кто хочет научится - разобраться не сложно.

И - переделывать код стиля 80-х годов, заставляя его работать это сложнее чем написать нормальную программу с нуля.

Новые блоги и статьи Все статьи Все блоги /
Осваиваем Kubernetes: Подробная шпаргалка Mr. Docker 15.03.2025 Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .	Лучшие PHP REST API фреймворки Jason-Webb 15.03.2025 Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .	Многопоточность в Java с Project Loom: виртуальные или обычные потоки Javaican 15.03.2025 Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .	Что нового в Swift 6 и особенности миграции mobDevWorks 15.03.2025 Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .	Вопросы на собеседовании по Android mobDevWorks 14.03.2025 По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python py-thonny 14.03.2025 Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .	Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda run.dev 14.03.2025 Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .	Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки NullReferenced 14.03.2025 C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .	smart-agent proper interface settings (2025) jigi33 14.03.2025 Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)	Продвинутые настройки JVM Javaican 14.03.2025 Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,795
	18.03.2019, 01:17	2
	Я вам уже ответил тут: Максимальный элемент, присвоение Не создавайте дубли Код рабочий, если не понимаете и не ленитесь разобраться - я всё объясню, что спросите (но только в той теме). А рассказывать "учитель не примет" не надо, я сам через это проходил, и если понимать программу и уметь объяснить учителю - программу принимают, всегда. 0

@globalplease 0 / 0 / 0 Регистрация: 19.02.2019 Сообщений: 39
	18.03.2019, 01:32 [ТС]	3
	Я не спорю, ВАШ код рабочий, но мне нужно именно под МОЙ код сделать ее. Для меня - это целая проблема, а для вас , Сергей, как для профи. это одна минута. И почему Вы всегда ссылаетесь на то, чтоб пользователь, задающий вопрос, разбирался и понимал , что ему надо сделать? Лично я пришел на эту площадку, чтоб мне РЕШИЛИ задачу, а не направляли читать учебные пособия или что-то подобное. 0

@Sun Serega 2351 / 1454 / 526 Регистрация: 07.04.2017 Сообщений: 4,795
	18.03.2019, 01:37	4
	Сообщение от globalplease Лично я пришел на эту площадку, чтоб мне РЕШИЛИ задачу, а не направляли читать учебные пособия или что-то подобное. И я её вам решил. Зачем вам теперь другое решение? Обычно, тем кто приходит за решением - сойдёт любое, а тем кто хочет научится - разобраться не сложно. И - переделывать код стиля 80-х годов, заставляя его работать это сложнее чем написать нормальную программу с нуля. 0