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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2016, 18:10   #1
Keniros
Новичок
Джуниор
 
Регистрация: 18.09.2016
Сообщений: 2
Вопрос Помогите с решением задачи.

Здравствуйте.
Даны целые числа a1,…,an, b1,…,bn, k. Если в последовательности a1,…,an нет ни одного члена со значением k, то первый по порядку член этой последовательности, что является наименьшим среди остальных членов, замените на значение k. За таким правилом надо сделать преобразования последовательности b1,…,bm со значением 10.
Помогите с решением задачи.
Keniros вне форума Ответить с цитированием
Старый 19.09.2016, 12:15   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
procedure Zamena(a:array of integer; k:integer);
var i,mi:integer;
    d:boolean;
begin
   d:=false;
   For i:=Low(a) to High(a) do
   begin
      Write(a[i]:3,'  ');
      If a[i]=k then
         d:=true;
   end;
   Writeln;
   If not d then
   begin
      mi:=Low(a);
      For i:=Low(a)+1 to High(a) do
         If a[i]<a[mi] then
            mi:=i;
      a[mi]:=k;
   end;
   For i:=Low(a) to High(a) do
      Write(a[i]:3,'  ');
   Writeln;
   Writeln;
end;

const n=12;
      k=5;
var a,b:array[1..n] of integer;
    i:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      b[i]:=Random(21);
   end;
   Zamena(a,k);
   Zamena(b,10);
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с решением задачи. Keniros C# (си шарп) 0 18.09.2016 17:50
Помогите с решением задачи в C++ Bruges Помощь студентам 1 15.11.2014 00:13
Помогите с решением задачи в си++ Komissarova Общие вопросы C/C++ 9 06.06.2014 21:32
помогите с решением задачи Ainur Помощь студентам 6 23.05.2009 11:42
Помогите с решением задачи!Please! Инзия Помощь студентам 3 11.03.2007 07:50