Замените элементы массива, стоящие после минимального элемента, на последний элемент массива

@l1mon4ikpro · Регистрация: 09.05.2015

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

Замените элементы массива, стоящие после минимального элемента, на последний элемент массива.

Pascal

Program P9;
Uses Crt;
Type Mas = array [1..17] of integer;
 Var V : Mas;
{ переменная V типа массив }
i,y: integer;
S,b:real;
Begin
Randomize;
For i:=1 to 17 do begin
V[i]:=random(26)-13;
End;
ClrScr;
For i:=1 to 17 do begin
 Writeln(V[i]:4);
End;
For i:=1 to 10 do begin
Write(V[i]:4);
end;
end.

@kot96 · 31.05.2015, 13:50

Pascal

Program P9;
Uses Crt;
Type Mas = array [1..17] of integer;
 Var V : Mas;
{ переменная V типа массив }
i,y,min: integer;
S,b:real;
Begin
Randomize;
For i:=1 to 17 do begin
V[i]:=random(26)-13;
End;
ClrScr;
For i:=1 to 17 do begin
 Write(V[i],' ');
End;
min:=V[1];
for i:=1 to 17 do
if (V[i]<min) then min:=V[i];
writeln();
writeln('последний элемент массива: ',V[17]);
writeln('минимальный элемент массива: ',min);
for i:=1 to 17 do 
if (V[i]=min) and (i<>17) then V[i+1]:=V[17]; 
writeln();
write('результирующий массив: ');
for i:=1 to 17 do
write(V[i],' ');
end.

@planetoxod · 31.05.2015, 13:56

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

for i:=1 to 17 do
if (V[i]=min) and (i<>17) then V[i+1]:=V[17];

а если V[i+1]=min ?

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

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

and (i<>17)

можно не проверять

@kot96 · 31.05.2015, 13:59

Вы правы, Я не продумал(

Добавлено через 1 минуту
Может тогда так?

Pascal

1 2	for i:=1 to 17 do if (V[i]=min) and (V[i+1]<>min) then V[i+1]:=V[17];

@planetoxod · 31.05.2015, 14:06

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

2
for i:=1 to 1

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

for i:=1 to 17 do

до 16

Добавлено через 30 секунд

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

for i:=1 to 17 do

до 16

Новые блоги и статьи
Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .
Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .	Как на Python создать нейросеть для решения задач InfoMaster 12.01.2025 В контексте стремительного развития современных технологий особое внимание уделяется таким инструментам, как нейросети. Эти структуры, вдохновленные биологическими нейронными сетями, используются для. . .

@planetoxod 251 / 162 / 24 Регистрация: 22.08.2014 Сообщений: 1,598 Записей в блоге: 1
	31.05.2015, 13:56	3
	Сообщение от kot96 for i:=1 to 17 do if (V[i]=min) and (i<>17) then V[i+1]:=V[17]; а если V[i+1]=min ? Добавлено через 1 минуту Сообщение от kot96 and (i<>17) можно не проверять 0

@planetoxod 251 / 162 / 24 Регистрация: 22.08.2014 Сообщений: 1,598 Записей в блоге: 1
	31.05.2015, 14:06	5
	Сообщение от kot96 2 for i:=1 to 1 Сообщение от kot96 for i:=1 to 17 do до 16 Добавлено через 30 секунд Сообщение от kot96 for i:=1 to 17 do до 16 0

Замените элементы массива, стоящие после минимального элемента, на последний элемент массива

Решение