Что получится в результате выполнения Чертежником следующего алгоритма: нач поднять перо сместиться - id1158694420210511 от анч21 11.05.2021 15:10

Question

Информатика: Что получится в результате выполнения Чертежником следующего алгоритма: нач поднять перо сместиться на вектор (3, 0) опустить перо сместиться на вектор (3, 3) сместиться на вектор (-3, 3) сместиться на вектор (-3, -3) сместиться на вектор (3, -3) кон

анч21 · Accepted Answer

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
    for var j:=0 to 9 do begin
      Write(a[i,j]:4);
      if a[i,j]>0 then Inc(sp)
      else
        if a[i,j]<0 then Inc(sn)
      end;
    Writeln
    end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.

Пример
-2   4   5 10   3   7 -8 -1 -5 -9
-2   6 -3   8 10   9 -8   3   9   9
   2 10   3   5 10   1 -9   4 -7   3
   9   1 -3 -5   7   5   2   0 -7   3
   2   1 10 -8 -8   6 -8 -3 -5   0
-2 -10 -7   9 -9 -1 -9 10 -10 -8
   6 -1 -4   3 -7   7 -1 -8 -10 -5
-3   2   0 -5 -4 -10 -10   0   3 -7
-1   5 -2   4 -6   9 -3 -1 -7 -2
   3   2   0 -10   8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51

MOGZ ответил