Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197142
19.11.2019, 17:08
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:Поменять местами самый правый максимальный элемент с предпоследним элементом массива, а затем умножить на найденное максимальное значение элементы, стоящие с первого по найденный номер максимального.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.11.2019, 17:46
общий
это ответ
Здравствуйте, JonMoxley!

Смотрите код:
[code lang=pascal]const
n=20;
var
a:array[1..n]of integer;
b,c:integer;
begin
{create and show array}
for b:=1 to n do
begin
a[b]:=random(2*n)-n;
write(a[b]:5);
end;
writeln;
{find maximum}
c:=1;
for b:=2 to n do
if a[c]<=a[b]then c:=b;
writeln('rigth max a[',c,']:=',a[c]);
{change}
b:=a[c];
a[c]:=a[n-1];
a[n-1]:=b;
{show result}
for b:=1to n do write(a[b]:5);
writeln;
{product}
for b:=1to c do a[b]:=a[b]*a[n-1];
{show result}
for b:=1to n do write(a[b]:5);
writeln;
writeln;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа