Question

Дан одномерный массив из 12 случайных чисел в Диапазоне [-50;50]. Отсортировать массив по возрастанию и вывести на экран сообщение «Число нечетное», если 3 элемент в отсортированном массиве нечетный, и «Число четное», если 3 элемент четный.Паскаль

Answer 1

Ответ:

без использования всяких функций

Объяснение:

Pascal

var

 a:array [1..12] of integer;

 i, j, k:integer;

begin

 randomize;  

 for i:=1 to 12 do  

   a[i]:=random(101)-50;

 print(a);

 writeln();

 

 i:=1;

 while i <= 12 do begin

   for j:= i to 12 do

     if a[j]<a[i] then begin

       k:=a[j];

       a[j]:=a[i];

       a[i]:=k;

       dec(i);

       break;

     end;  

   inc(i);

 end;  

 print(a);

 writeln();

 

 if a[3] mod 2 = 0 then

   writeln(a[3], ' число четное')

 else

   writeln(a[3], ' число нечетное')

end.

Answer 2

К сожалению, я не могу написать код на Pascal, так как мой интерфейс поддерживает только текстовые ответы. Однако, я могу предложить вам алгоритм на Pascal, который вы сможете использовать для решения данной задачи. Затем вы сможете написать код на Pascal на основе этого алгоритма.

Алгоритм:

1. Создайте одномерный массив из 12 случайных чисел в диапазоне [-50;50]. 2. Отсортируйте массив по возрастанию. 3. Выведите отсортированный массив на экран. 4. Проверьте третий элемент отсортированного массива. 5. Если третий элемент нечетный, выведите сообщение "Число нечетное", иначе выведите "Число четное".

Пример кода на Pascal:

program SortAndCheck;

var
  arr: array[1..12] of integer;
  i, temp: integer;

begin
  // Инициализация массива случайными числами от -50 до 50
  randomize;
  for i := 1 to 12 do
    arr[i] := random(101) - 50;

// Сортировка массива по возрастанию
  for i := 1 to 11 do
    for j := i+1 to 12 do
      if arr[i] > arr[j] then
      begin
        temp := arr[i];
        arr[i] := arr[j];
        arr[j] := temp;
      end;

// Вывод отсортированного массива на экран
  writeln('Отсортированный массив:');
  for i := 1 to 12 do
    write(arr[i], ' ');

// Проверка и вывод сообщения о четности/нечетности третьего элемента
  if arr[3] mod 2 = 0 then
    writeln('Число четное')
  else
    writeln('Число нечетное');

end.

Пожалуйста, учтите, что код может потребовать некоторых корректировок в зависимости от вашей конкретной среды разработки Pascal.