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

Поменять местами последний элемент массива с первым минимальным элементом, а затем поделить на заданное число все элементы, начиная с номера, где был найденный минимальный элемент, до последнего элемента массива.

Pascal

Приложение:
Pascal

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
24.12.2019, 14:54
общий
это ответ
Здравствуйте, rail!

Ну если Вы не поняли с первого раза. Повторяю ответ эксперта , №197246

Цитата: puporev
Здравствуйте, rail!

[code lang=pascal]var a:array[1..100] of real;
n,i,imn:integer;
x:real;
begin
repeat
write('Введите размер массива от 10 до 100 n=');
readln(n);
until n in [10..100];
randomize;
writeln('Исходный массив');
for i:=1 to n do
begin
a[i]:=1+10*random;
write(a[i]:5:1);
if i=1 then imn:=1
else if a[i]<a[imn] then imn:=i;
end;
writeln;
writeln('Первый минимальный элемент=',a[imn]:0:1,' его индекс=',imn);
x:=a[imn];
a[imn]:=a[n];
a[n]:=x;
writeln('Обмен первого минимального и последнего элементов');
for i:=1 to n do
write(a[i]:5:1);
writeln;
write('Введите число для деления x=');
readln(x);
writeln('Измененный массив');
for i:=1 to n do
begin
if i>=imn then a[i]:=a[i]/x;
write(a[i]:5:1);
end;
end.[/code]
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа