Есть ответ 👍

Запишите алгоритм перемещения Робота в клетку В с закрашиванием клетки 1.

275
467
Посмотреть ответы 2

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


1 вправо 2 вправо 3 вправо 4вниз 5 вверх 6 вправо 7 вправо

Объяснение:


Var       i, j, n, m: integer;       s, t: real;       a: array[1..100, 1..100] of integer; begin       randomize;             readln(n, m);             for i : = 1 to n do       begin               for j : = 1 to m do               begin                       a[i, j] : = random(100);                       s : = s + a[i, j];                       write(a[i, j]: 3, ' ')               end;               writeln()       end;             s : = s / n / m;             writeln();       for j : = 1 to m do       begin               t : = 0;               for i : = 1 to n do                       t : = t + a[i, j];                                     if t / n < s then                       write(j, ', ')       end end.

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