Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.03.2021, 20:56   #1
IvanDormov
Новичок
Джуниор
 
Регистрация: 06.11.2020
Сообщений: 2
По умолчанию Переписать в одномерный массив все элементы заданного, стоящие после его минимального элемента

Ребята, помогите ,пожалуйста! Нужно срочно сделать!
1) Переписать в одномерный массив K все элементы заданного цело-численного массива L[55], стоящие после его минимального элемента.
IvanDormov вне форума Ответить с цитированием
Старый 14.03.2021, 13:23   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
var L:array[1..55] of integer;
    K:array of integer;
    i,imin,n:integer;
begin
   Randomize;
   For i:=1 to 55 do
   begin
      L[i]:=Random(1000);
      Write(L[i]:3,'  ');
   end;
   Writeln;
   Writeln;
   imin:=1;
   For i:=2 to 55 do
      If L[imin]>L[i] then
         imin:=i;
   Writeln('L[',imin,'] = ',L[imin]);
   Writeln;
   n:=55-imin;
   SetLength(K,n);
   For i:=imin+1 to 55 do
      K[i-imin-1]:=L[i];
   For i:=0 to n-1 do
      Write(K[i]:3,'  ');
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задан одномерный массив. Все его элементы, не равные нулю Vadim228 Паскаль, Turbo Pascal, PascalABC.NET 5 23.12.2015 07:59
В массиве необходимо все отрицательные элементы умножить на квадрат его наименьшего элемента, а все неотрицательные элементы на кв dvpvitas Паскаль, Turbo Pascal, PascalABC.NET 3 18.06.2015 05:28
Сформировать одномерный массив, элементами которого являются все отрицательные элементы двумерного массива, после 1-го полож-го sev48fire Фриланс 5 23.06.2012 19:07
заменить элементы одномерного массива, стоящие перед минимальным - на нули, а стоящие после максимального - на единицы (Паскаль) Женька Good Помощь студентам 2 01.12.2011 06:22
уменьшить все элементы с четными индаксами на величину минимального элемента ginzor Помощь студентам 4 02.11.2009 15:26