Вопрос задан 02.03.2021 в 23:09. Предмет Информатика. Спрашивает Аников Денис.

Составьте программу ,заполнения массива a[i, j] нулями и единицами в форме ромба

0 0
Перейти к ответам

Ответы на вопрос

Внимание! Ответы на вопросы дают живые люди. Они могут содержать ошибочную информацию, заблуждения, а также ответы могут быть сгенерированы нейросетями. Будьте внимательны. Если вы уверены, что ответ неверный, нажмите кнопку "Пожаловаться" под ответом.
Отвечает Ястребцев Стас.

var

 A: array [1..9, 1..9] of Integer;

 i, j: Integer;

begin

 WriteLn ('Массив:');

 for i := 1 to 9 do begin

   for j := 1 to 9 do begin

     if Abs (i - 5) + Abs (j - 5) <= 3 then

       A [i, j] := 1

     else

       A [i, j] := 0;

   end;

 end;

 for i := 1 to 9 do begin

   for j := 1 to 9 do begin

     Write (A [i, j], ' ');

   end;

   WriteLn;

 end;

end.


0 0
Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.

Конечно! Вот пример программы на языке Python для заполнения массива a[i, j] нулями и единицами в форме ромба:

python
def fill_diamond_array(n): # Создаем двумерный массив размером (2n-1)x(2n-1) и заполняем его нулями a = [[0] * (2 * n - 1) for _ in range(2 * n - 1)] # Заполняем верхнюю половину ромба единицами for i in range(n): for j in range(n - i - 1, n + i): a[i][j] = 1 # Заполняем нижнюю половину ромба единицами for i in range(n, 2 * n - 1): for j in range(i - n + 1, 3 * n - 2 - i): a[i][j] = 1 return a # Пример использования n = int(input("Введите размер ромба (нечетное число): ")) array = fill_diamond_array(n) # Выводим полученный массив for row in array: for element in row: print(element, end=" ") print()

При запуске программы вы будете приглашены ввести размер ромба (необходимо ввести нечетное число). Затем программа заполняет массив a[i, j] нулями и единицами в форме ромба и выводит его на экран.

Например, при вводе размера ромба равного 5, программа выведет следующий результат:

0 0 1 0 0 0 1 1 1 0 1 1 1 1 1 0 1 1 1 0 0 0 1 0 0

Надеюсь, это поможет вам! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.

0 0

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос