Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива

@Botan1q · Регистрация: 30.06.2016

Author24 — интернет-сервис помощи студентам

Найти минимальный элемент массива Х[K], сменить у него знак и
переместить в конец массива.

Помогите пожалуйста с масивами этими) я в них ничего не понимаю.
Напишите программу. Буду очень признателен вам)

@Puporev · 01.09.2016, 15:17

Pascal

var x:array[1..100] of integer;
    n,i,imn,a:integer;
begin
randomize;
repeat
write('Размер массива X от 2 до 100 n=');
readln(n);
until n in [2..100];
writeln('Массив X');
imn:=1;
for i:=1 to n do
 begin
  x[i]:=-10+random(21);
  write(x[i]:4);
  if i mod 20=0 then writeln;
  if x[i]<x[imn] then imn:=i;
 end;
writeln;
writeln('Минимальный элемет=',x[imn],' его индекс=',imn);
a:=-x[imn];
if imn<n then
 begin
  for i:=imn to n-1 do
  x[i]:=x[i+1];
  x[n]:=a;
 end;
writeln('Перестановки минимального с обратным знаком в конец массива');
for i:=1 to n do
 begin
  write(x[i]:4);
  if i mod 20=0 then writeln;
 end;
end.

@Botan1q 0 / 0 / 0 Регистрация: 30.06.2016 Сообщений: 14
		1
	Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива 01.09.2016, 13:59. Показов 1602. Ответов 1 Метки нет (Все метки) Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива. Помогите пожалуйста с масивами этими) я в них ничего не понимаю. Напишите программу. Буду очень признателен вам) 0

	01.09.2016, 15:17

Найти минимальный элемент массива Х[K], сменить у него знак и переместить в конец массива

Решение