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]