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

@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.

@devland · 17.05.2015, 15:32

Как то так:

Pascal

Program P9;
Uses Crt;
Type Mas = array [1..17] of integer;
Var V : Mas;  i,y,min: integer;     S,b:real;
Begin
Randomize;
For i:=1 to 17 do
V[i]:=random(26)-13;
 
min:=v[1];
for i:=1 to 17 do
if v[i]<min then begin
min:=v[i];
y:=i;
end;
 
For i:=1 to 17 do
Write(V[i]:4);
writeln;
 
for i:=y+1 to 17 do
v[i]:=v[17];
 
For i:=1 to 17 do
Write(V[i]:4);
 
end.

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

	17.05.2015, 15:32