Типовые алгоритмы обработки одномерных массивов

@DADGAMBLING · Регистрация: 15.10.2017

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

Заранее огромное спасибо ребята.
Приехал и ко вторнику в универе задали вообще дофигища. Никак не успею все сделать. Рассчитываю на вашу помощь
Большую часть уже сделал, но к ним еще блок схемы рисовать.

3. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Найти номера всех отрицательных элементов.
4. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Заменить все четные элементы на их квадраты, а нечетные элементы удвоить. Ввести новый массив.
5. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива последний четный элемент. Ввести новый массив.
6. Дан массив В, состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива все положительные элементы. Ввести новый массив.
7. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Вставить число 555 перед максимальным элементом массива. Ввести новый элемент.
8. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Вставить число 400 перед всеми нечетными элементами массива. Вывести новый массив.
9. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Поменять местами первый элемент и максимальный элемент. Вывести новый массив
29. Дан массив В, состоящий из n элементов. Элементы массива ввести в программе. Переставить элементы так, чтобы они были расположены по возрастанию. Вывести новый массив. Использовать метод сортировки обменами.

Если можно то, как то на языке первого курса, чтобы хоть разобраться смог.

@Соколиный глаз · 29.10.2017, 18:13

DADGAMBLING, одна задача - одна тема.

Добавлено через 1 час 4 минуты
3:

Pascal

const
  N = 5;
 
var
  A: array [0..N - 1] of integer;
  S: string;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    if A[i] < 0 then
      if i < N - 1 then
        S += IntToStr(i) + ' '
      else
        S += IntToStr(i);
  end;
  Writeln(S);
end.

Добавлено через 2 минуты
4:

Pascal

const
  N = 5;
 
var
  A: array [0..N - 1] of integer;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    A[i] := Ord(A[i] mod 2 = 0) * Sqr(A[i]) + Ord(A[i] mod 2 <> 0) * 2 * A[i];
  end;
  Writeln(A);
end.

Добавлено через 4 минуты
6:

Pascal

const
  N = 5;
 
var
  A: array [0..N - 1] of integer;
  Removed: array [0..N - 1] of boolean;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    Removed[i] := A[i] > 0;
  end;
  
  for var i := 0 to N - 1 do
    if not Removed[i] then
      WriteFormat('{0} ', A[i]);
end.

Добавлено через 2 минуты
5:

Pascal

const
  N = 5;
 
var
  A: array [0..N - 1] of integer;
  Removed: array [0..N - 1] of boolean;
 
begin
  for var i := 0 to N - 1 do
    Readln(A[i]);
  
  var i := N - 1;
  while (i >= 0) and (A[i] mod 2 <> 0) do Dec(i);
  
  if i >= 0 then Removed[i] := true;
  
  for var j := 0 to N - 1 do
    if not Removed[j] then
      WriteFormat('{0} ', A[j]);
end.

@volvo · 29.10.2017, 18:16

Сообщение от Volobuev Ilya

одна задача - одна тема.

Ну и зачем было это писать? И зачем это выполнять новичкам, если они видят, что потом придет добрый дядя и все равно им решит задания? А я теперь даже тему отредактировать не могу, потому что пёс знает, сколько ты еще решений выложишь, пока я первый пост буду редактировать.

@Соколиный глаз · 29.10.2017, 18:19

7:

Pascal

const
  N = 5;
 
var
  A: array [0..N] of integer;
  Max: integer := integer.MinValue;
  MaxI: integer;
 
begin
  for var i := 0 to N - 1 do
  begin
    Readln(A[i]);
    if A[i] > Max then
    begin
      Max := A[i];
      MaxI := i;
    end;
  end;
  
  for var i := N downto MaxI + 1 do
    A[i] := A[i - 1];
  A[MaxI] := 555;
  
  Writeln(A);
end.

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

Добавлено через 10 секунд
А так бы и не писал...

@DADGAMBLING · 29.10.2017, 21:38 **[ТС]**

Спасибо огромное!

@volvo · 29.10.2017, 21:48

Сообщение от Volobuev Ilya

А так бы и не писал...

Вот и не пиши в следующий раз. Создал тему с нарушениями - пусть пожинает плоды.

@DADGAMBLING · 29.10.2017, 23:16 **[ТС]**

Тебе так жалко, что он мне написал программы, тем самым очень сильно помог?

@DADGAMBLING 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 37
		1
	Типовые алгоритмы обработки одномерных массивов 29.10.2017, 16:43. Показов 1886. Ответов 6 Метки нет (Все метки) Заранее огромное спасибо ребята. Приехал и ко вторнику в универе задали вообще дофигища. Никак не успею все сделать. Рассчитываю на вашу помощь Большую часть уже сделал, но к ним еще блок схемы рисовать. 3. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Найти номера всех отрицательных элементов. 4. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Заменить все четные элементы на их квадраты, а нечетные элементы удвоить. Ввести новый массив. 5. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива последний четный элемент. Ввести новый массив. 6. Дан массив В, состоящий из n элементов. Элементы массива ввести с клавиатуры. Удалить из массива все положительные элементы. Ввести новый массив. 7. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Вставить число 555 перед максимальным элементом массива. Ввести новый элемент. 8. Дан массив B, состоящий из n элементов. Элементы массива ввести в программе. Вставить число 400 перед всеми нечетными элементами массива. Вывести новый массив. 9. Дан массив B, состоящий из n элементов. Элементы массива ввести с клавиатуры. Поменять местами первый элемент и максимальный элемент. Вывести новый массив 29. Дан массив В, состоящий из n элементов. Элементы массива ввести в программе. Переставить элементы так, чтобы они были расположены по возрастанию. Вывести новый массив. Использовать метод сортировки обменами. Если можно то, как то на языке первого курса, чтобы хоть разобраться смог. 0

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	29.10.2017, 18:16	3
	Сообщение от Volobuev Ilya одна задача - одна тема. Ну и зачем было это писать? И зачем это выполнять новичкам, если они видят, что потом придет добрый дядя и все равно им решит задания? А я теперь даже тему отредактировать не могу, потому что пёс знает, сколько ты еще решений выложишь, пока я первый пост буду редактировать. 0

@DADGAMBLING 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 37
	29.10.2017, 21:38 [ТС]	5
	Спасибо огромное! 0

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	29.10.2017, 21:48	6
	Сообщение от Volobuev Ilya А так бы и не писал... Вот и не пиши в следующий раз. Создал тему с нарушениями - пусть пожинает плоды. 0

@DADGAMBLING 0 / 0 / 0 Регистрация: 15.10.2017 Сообщений: 37
	29.10.2017, 23:16 [ТС]	7
	Тебе так жалко, что он мне написал программы, тем самым очень сильно помог? 0

Опции темы

Типовые алгоритмы обработки одномерных массивов

Решение