Осуществите перестановку минимального элемента и элемента, стоящего на последнем месте

@lek0n · Регистрация: 25.05.2014

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

«одномерные числовые массивы» создайте программу. заполните одномерный числовой массив А(15) случайными целыми числами в интервале[ -18, 15]. выведите значения элементов массива сначала в столбик а затем в строку причем на каждый элемент отведите 4 позиции .ответ каждой следует в с новой строки и с задачи пояснительным текстом кроме того, следует каждый производит вывод массива на р экран если в нем произошли изменения перестановка замена, изменение значения элементов и т.д.

1. Осуществите перестановку минимального элемента и элемента ,стоящего на последнем месте.
2.Создайте новый одномерный массив,в который занесите отрицательные элементы исходного массива в обратном порядке.

@JokeR.BY · 25.05.2014, 22:26

Pascal

const
  n = 15;
 
var
  mass : array[0..n-1] of ShortInt;
  mass2 : array of ShortInt;
  i, minID : Byte;
  min, temp : ShortInt;
  
begin
  {заполнение массива}
  min := 255;
  Randomize;
  for i := 0 to n-1 do
  begin
    mass[i] := Random(34)-18;
    if (min > mass[i]) then
    begin
      min := mass[i];
      minID := i;
    end;
  end;
  {вывод в столбик}
  WriteLn('Вывод сгенерированного массива в столбик:');
  for i := 0 to n-1 do
    WriteLn('A[', i+1, ']=', mass[i]:4);
  WriteLn;
  {вывод в стороку}
  WriteLn('Вывод сгенерированного массива в строку:');
  for i := 0 to n-1 do
    Write('A[', i+1, ']=', mass[i]:4, #9);
  WriteLn; WriteLn;
  {перестановка минимального элемента с последним}
  temp := mass[minID];
  mass[minID] := mass[n-1];
  mass[n-1] := temp;
  WriteLn('Массив А после перестановки:');
  for i := 0 to n-1 do
    Write('A[', i+1, ']=', mass[i]:4, #9);
  WriteLn; WriteLn;
  {отрицательные числа в обратном порядке}
  WriteLn('Массив отрицательных чисел массива А в обратном порядке:');
  for i := n-1 downto 0 do
    if (mass[i] < 0) then
    begin
      SetLength(mass2, Length(mass2)+1);
      mass2[Length(mass2)-1] := mass[i];
      Write('B[', Length(mass2), ']=', mass2[Length(mass2)-1]:4, #9);
    end;
end.

вывод программы

Код

Вывод сгенерированного массива в столбик:
A[1]=  -5
A[2]=   7
A[3]=  -5
A[4]=  11
A[5]=  13
A[6]=  12
A[7]=  12
A[8]=   5
A[9]=  -6
A[10]=   0
A[11]=  -4
A[12]=  -7
A[13]=   0
A[14]= -12
A[15]=  -7

Вывод сгенерированного массива в строку:
A[1]=  -5	A[2]=   7	A[3]=  -5	A[4]=  11	A[5]=  13	A[6]=  12	A[7]=  12	A[8]=   5	A[9]=  -6	A[10]=   0	A[11]=  -4	A[12]=  -7	A[13]=   0	A[14]= -12	A[15]=  -7	

Массив А после перестановки:
A[1]=  -5	A[2]=   7	A[3]=  -5	A[4]=  11	A[5]=  13	A[6]=  12	A[7]=  12	A[8]=   5	A[9]=  -6	A[10]=   0	A[11]=  -4	A[12]=  -7	A[13]=   0	A[14]=  -7	A[15]= -12	

Массив отрицательных чисел массива А в обратном порядке:
B[1]= -12	B[2]=  -7	B[3]=  -7	B[4]=  -4	B[5]=  -6	B[6]=  -5	B[7]=  -5

@lek0n 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 24
		1
	Осуществите перестановку минимального элемента и элемента, стоящего на последнем месте 25.05.2014, 21:51. Показов 2035. Ответов 1 Метки нет (Все метки) «одномерные числовые массивы» создайте программу. заполните одномерный числовой массив А(15) случайными целыми числами в интервале[ -18, 15]. выведите значения элементов массива сначала в столбик а затем в строку причем на каждый элемент отведите 4 позиции .ответ каждой следует в с новой строки и с задачи пояснительным текстом кроме того, следует каждый производит вывод массива на р экран если в нем произошли изменения перестановка замена, изменение значения элементов и т.д. 1. Осуществите перестановку минимального элемента и элемента ,стоящего на последнем месте. 2.Создайте новый одномерный массив,в который занесите отрицательные элементы исходного массива в обратном порядке. 0

Опции темы

Осуществите перестановку минимального элемента и элемента, стоящего на последнем месте

Решение