Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197246
27.11.2019, 14:38
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Прошу помощи в следующем вопросе:

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

Pascal

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

Обсуждение

давно
puporev
Профессор
401888
1232
27.11.2019, 15:39
общий
это ответ
Здравствуйте, 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]
Форма ответа