|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.01.2012, 19:43 | #1 (permalink) |
Новичок
Регистрация: 15.01.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить задачу
|
15.01.2012, 19:43 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете поискать полезные ответы в похожих на вашу темах Помогите решить задачу Помогите решить задачу Помогите решить задачу Помогите решить задачу |
15.01.2012, 19:52 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ждите экстрасенсов. Они годика через полтора обещали заглянуть. Тогда и узнаем, на каком языке программирования нужно выполнить задание.
|
15.01.2012, 20:30 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну тогда - так и быть. Хотя обычно с обрыдлыми поисками минимальных/максимальных элементов массивов посылаю... куда подальше. С этим детским садом надо самостоятельно управляться! Ладно, держите:
Код:
VAR A:Array [1..10] of Byte; Min,i,Imin,D:Byte; BEGIN Randomize; Writeln('Initial array:'); Min:=100; For i:=1 to 10 do begin A[i]:=Random(100); Write(A[i]:4); If A[i]<Min then begin Min:=A[i]; Imin:=i; end; end; Writeln; Writeln; If Imin=5 then Writeln('Fifth element is minimal one') else begin Writeln('Changed array:'); D:=A[5]; A[5]:=A[Imin]; A[Imin]:=D; For i:=1 to 10 do write(A[i]:4); end; Readln END. |
15.01.2012, 20:42 | #5 (permalink) |
Новичок
Регистрация: 15.01.2012
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
огромное спасибо
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|