Блог для маленьких школьников и их родителей
ШколаЛа

Помогите пожалуйста! Паскаль!

Автор:
Предмет: Информатика
Уровень: студенческий

Помогите пожалуйста! Паскаль!

Ответов к вопросу: 1
  • Eigentlich1
    15.09.2024 | 19:22

    №1

    var  mass:array [0.6, 0.6] of integer;
    begin  //заполняем массив  for var i := 0 to 6 do    begin      mass[i][i] := 1;      mass[i][6-i] := 1;    end;    //выводим массив  for var i := 0 to 6 do    begin      for var m := 0 to 6 do      begin        write(mass[i][m], ‘  ‘);      end;      writeln();    end;end.

    ———————————

    №2

    var  mass:array [0.6, 0.6] of integer;
    begin  //заполняем массив  for var i := 0 to 6 do    begin      mass[i][i] := 1;      mass[i][6-i] := 1;      mass[i][3] := 1;      mass[3][i] := 1;    end;    //выводим массив  for var i := 0 to 6 do    begin      for var m := 0 to 6 do      begin        write(mass[i][m], ‘  ‘);      end;      writeln();    end;end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.