Дан одномерный массив, сформировать из него двухмерный отсортированный змейкой - Pascal ABC

  1. Начиная с правого нижнего угла вертикально


textual

Код:

uses crt;
 
var
  mas1:array [1..20] of integer;
  mas2:array [1..2,1..10] of integer;
  i,j,k:integer;
  a,b:boolean;
  
BEGIN
  write('mas1: ');
  for i:=1 to 20 do
    begin
      mas1[i]:=random(10);
      write(mas1[i],' ');
    end;
  writeln;
  
  j:=2;
  i:=11;
  k:=0;
  a:=false;
  b:=false;
 
  while k<20 do
    begin
      inc(k);
      a:=not a;
      if a then
        begin
          dec(i);
        end
      else
        begin
          b:= not b;
        end;
      if b then
        begin
          j:=1;
        end
      else
        begin
          j:=2;
        end;
      mas2[j,i]:=mas1[k];
    end;
  writeln('mas2:');
  for i:=1 to 2 do
    begin
      for j:=1 to 10 do
        write(mas2[i,j],' ');
      writeln;
    end;
END.


Похожие ответы
  1. Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями.

  1. Help В одномерном массиве А(N) (N<=60) найти максимальный элемент. Все отрицательные элементы массива А умножить на этот элемент. Преобразованный массив распечатать.Добавлено через 1 час 23 минуты Я попытался сделать, но ой как не уверен что хоть что-нибудь правильно.

  1. 1) Ввести массив, состоящий из 14 элементов действительного типа. Расположить элементы с 1 по 7 по возрастанию, а с 8 по 14 - в порядке убывания. 2)Ввести массив, состоящий из 14 элементов действительного типа. Поменять местами первую половину со второй. Определить количество произведенных при этом перестановок.

  1. Заданы два массива A(N),B(M).Первый на печать вывести массив,содержащий наибольшее значение.Напечатать также это значение и его индекс.В паскале.

  1. Переписать наибольшие положительные элементы каждого столбца матрицы СX(m,n), в одномерный массив O

  1. Составить программу на массивы 1. Даны массив V[1..n] и число x; определить число элементов массива V[1..n] не больших х. 2. В одномерный массив вставьте некоторый элемент в заднюю позицию. 3. Исключить из массива А1..Аn первый отрицательный элемент.

  1. Только начали проходить массивы, препод толком не смог адекватно объяснить как это работает. Ребят помогите кому не сложно)

  1. Всем Привет, может это покажется смешным, но не могу создать из многомерного массива одномерный( Сижу уже час блин( Само задание звучит так: Составить программу, записывающий все положительные элементы двумерного массива А в одномерный массив В, а отрицательные в одномерный массив С. Но мне нужен только алгоритм преобразования многомерного массива в одномерный, без использования функции move. Заранее благодарю за помощь) Нашел в чем проблема!) Вот код) Все работает)

  1. Дан произвольный одномерный массив целых чисел. Размерность 15. Сформировать и вывести новый массив, в который поместить в убывающем порядке все отрицательные числа исходного массива. помогите

  1. Даны два одномерных массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов.