Задать вопрос
23 марта, 00:52

Заполнить двухмерный массив размером 6 * 6 следующим образом:

1 1 1 1 1 1

1 1 0 0 0 1

1 0 1 0 0 1

1 0 0 1 0 1

1 0 0 0 1 1

1 1 1 1 1 1

! ответ!

uses crt;

const n=6;

var i, j, k: integer;

a: array [1 ... 6,1 ... 6] of integer;

begin

for i:=1 to n do

begin

for j:=1 to n do

begin

if (i=j) or (j=1) or (i=1) or (i=6) or (j=6) then

a[i, j]:=1

else

a[i, j]:=0;

write (a[i, j]:3) ;

end;

writeln;

end;

+3
Ответы (1)
  1. 23 марта, 03:47
    0
    const

    n = 6;

    var

    i, j, k: integer;

    a: array [1 ... 6, 1 ... 6] of integer;

    begin

    for i : = 1 to n do

    begin

    for j : = 1 to n do

    begin

    if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then

    a[i, j] : = 1

    else

    a[i, j] : = 0;

    write (a[i, j]:3) ;

    end;

    writeln () ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполнить двухмерный массив размером 6 * 6 следующим образом: 1 1 1 1 1 1 1 1 0 0 0 1 1 0 1 0 0 1 1 0 0 1 0 1 1 0 0 0 1 1 1 1 1 1 1 1 ! ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Какие описания массивов являются правильными с точки зрения компилятора языка Pascal? var a1: array[-1000 ... 50] of integer; const m1 = 20; m2 = m1*100; var a6: array[m1 ... m2] of - 200 ... 200; var a2: array[200 ...
Ответы (2)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Помогите найти ошибку в программе, при запуске на строке "vyvod (arr) ; " выдает ошибку: "Ожидалось выражение". Не пойму в чем проблема. uses crt; type arr=array [1 ...
Ответы (1)
Укажите верное описание целочисленного массива mass, состоящего из 10 элементов. Интервал значений элементов [0; 100] 1) var mass:array of integer; 2) var mass:array[1 ... 10] of integer; 3) var mass:array[0 ... 100] of integer; 4) var mass:array[0 .
Ответы (1)