Larisa Bulgakova
?>

Поменять местами две диагонали Дан квадратный массив. Поменяйте местами в каждом столбце элементы, стоящие на главной и побочной диагонали. Входные данные: В первой строке дано число n≤10. Далее идут n строк по n неотрицательных целых чисел не больше 100. Выходные данные ответ на задачу. Примеры Ввод 3 1 2 3 4 5 6 7 8 9 Вывод 7 2 9 4 5 6 1 8 3

Информатика

Ответы

valeron7hair7

Если как в примере, вот код.

Если как обычно принято, надо заменить a[n - 1 - i, i] на a[i, n - 1 - i]

//PascalABC.NET

begin

 var n := ReadInteger;

 var a := ReadMatrInteger(n, n);

 for var i := 0 to n - 1 do

   Swap(a[i, i], a[n - 1 - i, i]);

 a.Print

end.

Руслан Руденко1262

Первый действующий автоматический компью­тер был сделан в 1944 году в Гарвардском уни­верситете профессором Говардом Эйкеном и группой инженеров из корпорации «Интернешнл Бизнес Машинз». Они назвали свое устройство «Гарвард Ай Би Эм—1». Это была первая машина, которая могла выполнять длинный список вычис­лительных операций. Она могла работать с 23-разрядными числами — сложить два таких числа за 0,3 секунды и умножить их за 4 секунды. В машине были использованы электрические и ме­ханические, а не электронные детали. Как только стали использоваться электронные детали, скоро­сть работы компьютера резко возросла.

Рогова Ольга1156

var

  a:array[1..12] of integer;

  i:integer;

begin

  randomize;

  writeln('Сгенерированный массив:');

  for i := 1 to 12 do

  begin

    a[i] := random(36) - 15;

    write(a[i], ' ');

  end;

  writeln;

end.

 

//вторая программа

const

  n = 8;

var

  a:array[1..n] of integer;

  i, count3, count4, count5:integer;

begin

  randomize;

  writeln('Оценки учеников:');

  for i := 1 to n do

  begin

    a[i] := random(3) + 3;

    write(a[i], ' ');

    if a[i] = 5 then

      inc(count5);

    if a[i] = 4 then

     inc(count4);

    if a[i] = 3 then

      inc(count3);

  end;

  writeln;

  writeln('Троек - ', count3);

  writeln('Четверок - ', count4);

  writeln('Пятерок - ', count5);

end.

 

 

 

 

//третья программа

var

  k:array[1..12] of integer;

  i:integer;

begin

  randomize;

  writeln('Сгенерированный массив:');

  for i := 1 to 12 do

  begin

    k[i] := random(36) - 15;

    write(k[i], ' ');

  end;

  writeln;

  writeln('Преобразованный массив:');

  for i := 1 to 12 do

  begin

    k[i] := k[i] * (-1);

    write(k[i], ' ');

  end;

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Поменять местами две диагонали Дан квадратный массив. Поменяйте местами в каждом столбце элементы, стоящие на главной и побочной диагонали. Входные данные: В первой строке дано число n≤10. Далее идут n строк по n неотрицательных целых чисел не больше 100. Выходные данные ответ на задачу. Примеры Ввод 3 1 2 3 4 5 6 7 8 9 Вывод 7 2 9 4 5 6 1 8 3
Ваше имя (никнейм)*
Email*
Комментарий*