Заполнить двумерный массив зигзагом по диагонали - Pascal ABC

  1. Нужно заполнить двумерный массив n-го порядка справа-налево сверху-вниз рандомными числами (от min к max) 10 4 3 1 11 9 5 2 15 12 8 6 16 14 13 7 Заранее спасибо за любую помощь!


textual

Код к задаче: «Заполнить двумерный массив зигзагом по диагонали - Pascal ABC»

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax]of integer;
    n,i,j,k,l:integer;
begin
repeat
write('Размер матрицы до ',nmax,' n=');
readln(n);
until n in [1..nmax];
write('Введите минимальное значение k=');
readln(k);
clrscr;
for l:=2*n-1 downto 1  do
 begin
  if l>n then
   begin
    if l mod 2=0 then
    for i:=1 to 2*n-l do
     begin
      a[i,i+l-n]:=k;
      k:=k+1;
     end
    else
    for i:=2*n-l downto 1 do
     begin
      a[i,i+l-n]:=k;
      k:=k+1;
     end
   end
  else if l<=n then
   begin
    if l mod 2=0 then
    for i:=n-l+1 to n do
     begin
      a[i,i-n+l]:=k;
      k:=k+1;
     end
    else
    for i:=n downto n-l+1 do
     begin
      a[i,i-n+l]:=k;
      k:=k+1;
     end;
   end;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.929 из 5



Похожие ответы
  1. Заполнить числами, начиная с единицы, квадратный массив из NxN элементов «змейкой». Пример, для массива 4х4: Код 1 2 3 4 8 7 6 5 9 10 11 12 16 15 14 13 Реализовать ввод размерности с клавиатуры

  1. Написать программу для определения суммы элементов над главной диагональю матрицы. Ввод и размерность матрицы осуществляется с клавиатуры.

  1. 1) Реализовать динамический массив целых чисел, заполнить его случайными числами от 1 до 100, вывести массив на экран.

  1. Нужно заполнить (квадратную) матрицу a(n,n) числами натурального ряда в последовательности указанной на рисунке и вывести ее на экран. Pascal abc. Рисунок 37. Кто может киньте готовый код, пожалуйста, а то никак не могу понять как решать такое.

  1. Нужно заполнить (квадратную) матрицу a(n,n) числами натурального ряда в последовательности указанной на рисунке и вывести ее на экран. Pascal abc. Делал программу для вывода такой же матрицы с левого верхнего угла, но сделать такую не получается. Кто может киньте готовы код, пожалуйста.

  1. Заполнить массив случайными числами в интервале [-10, 10] и отобрать в другой массив все чётные отрицательные числа.

  1. Помогите заполнить двумерный массив размером 7 7 так 1 0 0 1 0 0 1 0 1 0 1 0 1 0 0 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 0 0 1 0 1 0 1 0 1 0 0 1 0 0 1

  1. Доброго времени суток, нужно организовать массив, но я не знаю как это сделать, помогите.) в общем суть такова. Организовать в оперативной памяти два массива А и В размера N для хранения целых чисел. Массив А заполнить случайными числами из диапазона от К1 до К2. Массив В заполнить значе- ниями в соответствии с заданием Вашего варианта. Используя режим CRT отобразить оба массива на экране с пояснениями и выделением цветом. N=25, К1=3, К2=9. Массив В заполнить теми значениями массива А, которые больше, чем зна- чение элемента А23

  1. Нужно написать код с использованием двумерных массивов с предусловием и послеусловием

  1. Доброго времени суток. Помогите разобраться с задачей. Дан одномерный массив А[20]. Заполнить двумерный массив B(10*10) по следующему правилу: четные строки массива В заполнить элементами расположенными на четных позициях массива А, нечетные строки массива В заполнить элементами расположенными на нечетных позициях массива А.