Вопрос по информатике:
Из элементов массива С сформировать массив А той же размерности по правилу: элементы с 3-го по 12-й - Ai=-Ci^2, все остальные - Аi=Ci-1.
1)Заменить максимальный элемент на противоположный по знаку. 2)Заменить нулями элементы между минимальным и максимальным, кроме них самих.
Два пункта должны быть реализованы в одном коде, не отдельно!!
Код нужен на Pascal(Паскале)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 02.07.2015 19:51
- Информатика
- remove_red_eye 13873
- thumb_up 35
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Укажите n>11:');
var c:=ArrRandom(n,-50,50); c.Println;
var a:=new integer[n];
for var i:=0 to n-1 do
if i.Between(2,11) then a[i]:=Sqr(c[i]) else a[i]:=c[i]-1;
a.Println;
var imax:=a.IndexMax;
a[imax]:=-a[imax];
Writeln('Максимальный элемент заменен на ',a[imax]);
var imin:integer;
(imin,imax):=(a.IndexMin,a.IndexMax);
if imin>imax then Swap(imin,imax);
for var i:=imin+1 to imax-1 do a[i]:=0;
a.Println
end.
Пример
Укажите n>11: 15
-47 11 -42 23 29 12 3 -24 -20 11 -4 38 42 -26 -28
-48 10 1764 529 841 144 9 576 400 121 16 1444 41 -27 -29
Максимальный элемент заменен на -1764
-48 10 -1764 0 0 0 0 0 0 0 0 1444 41 -27 -29
- 03.07.2015 22:20
- thumb_up 5
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.