Два двумерных массива. Написать и вывести. Паскаль

Нет комментариев

Ответы

Гость

Var
a, b: array[1..6, 1..6] of boolean;
i, j: integer;

begin
for i := 1 to 6 do
    for j := 1 to 6 do
      if i = j then a[i, j] := true else a[i, j] := false;

for i := 1 to 6 do
    for j := 1 to 6 do
      if (i > 1) and (i < 6) then
        if (j > 1) and (j < 6) then
          b[i, j] := false else b[i, j] := true else b[i, j] := true;

for i := 1 to 6 do
begin
    for j := 1 to 6 do if a[i, j] then write(1, ' ') else write(0, ' ');
    writeln;
end;
writeln;
for i := 1 to 6 do
begin
    for j := 1 to 6 do if b[i, j] then write(1, ' ') else write(0, ' ');
    writeln();
end;

end.

7 комментария:

Вот потому те, кто на Python пишут, смеются над вами, что так длинно пишете, когда можно в пару строчек обойтись. Учите современные версии и средства языка Паскаль!

Только в 5-9 классе наврядтль поверят в то, что он(она) сам накатал то, что вы(ты) описывал(а) ниже. У меня бы как минимум попросилиб переписать, а такое сложно запомнить, только если понять как работает.

Понять, кстати, элементарно. А языки программирования по ФГОС учат, начиная с 8 класса, не ранее.

Вы всерьез считаете, что 24 строки понять проще, чем четыре?

А если ты не понимаешь в этой области, и тебе нужны только ответы? Просто принести учителю код, чтобы не получить двойку, и, желательно, чтобы он не догадался, что код чужой. В таком случае, скорее всего, выгоднее будет длинный и бесполезный (в меру), а не в 2-4 строки.

А таких мы здесь не привечаем, кто за ответами. Нам лентяев не надо, мы сами лентяи!))

И последнее. В некоторых школах уже перешли на версию 3.2 и знакомят учеников с продвинутыми средствами. Яндeкс включил эту версию в разрешенные для олимпиад... Против прогресса не попрешь...