Регистрация
0033eg97
30.10.2022 11:25
Информатика
Есть ответ 👍

Написать машину Тьюринга, которая исправляет ошибку в слове «иксковотар»

125
281
Посмотреть ответы 1

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

Вероникапривет
Вероникапривет
4,6(40 оценок)

pascalabc.net

begin

  // 1

  var a : = matrrandom(5, 6, -10, 10);

  a.println(4);

  var (kn, kz, kp) : = (0, 0, 0);

  for var i : = 0 to a.rowcount - 1 do

    for var j : = 0 to a.colcount - 1 do

      if a[i, j] > 0 then

        kp += 1

      else if a[i, j] = 0 then

        kz += 1

      else

        kn += 1;

  println('отрицательных', kn, ' нулевых', kz,

      ' положительных', kp);

  // 2

  var b : = matrrandom(5, 6, 1, 100);

  b.println(5);

  var s : = b.elementswithindices;

  var imin : = s.minby(p -> p[0]);

  var imax : = s.maxby(p -> p[0]);

  writeln('индексы минимального элемента [',

      imin[1] + 1, ',', imin[2] + 1, ']');

  writeln('индексы максимального элемента [',

      imax[1] + 1, ',', imax[2] + 1, ']');

  // 3

  var c : = matrrandom(5, 9, -3, 5);

  c.println(3);

  print('количество положительных по строкам: ');

  c.rows.select(r -> r.count(p -> p >

end.

Популярно: Информатика