Что будет выведено на экран после выполнения этой программы: N = 9; K = 3; for( i=1; i<=K; i++ ) { N = N - K; cout << N;
​

1.
нач
целтаб Dat[1:10]
цел к, s
Dat[1] := 7
Dat[2] := 9
Dat[3] := 10
Dat[4] := 5
Dat[5] := 6
Dat[6] := 7
Dat[7] := 9
Dat[8] := 8
Dat[9] := 6
Dat[10] := 9
s: = 0
нц для к от 1 до 10
s:= s + Dat[k]
все
КЦ
вывод s
КОН
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76

2.
DIM Dat(10) AS INTEGER
DIM k,m,n AS INTEGER
Dat[1] = 7
Dat[2] = 9
Dat[3] = 10
Dat[4] = 5
Dat[5] = 6
Dat[6] = 7
Dat[7] = 9
Dat[8] = 8
Dat[9] = 6
Dat[10] = 9
s = 0
FOR k := 1 TO 10
IF Dat(k) < m THEN
s:= s + Dat[k]
ENDIF
NEXT k
PRINT s
В программе не задано значение переменной m. Если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=0

3.
Var k, m, n: integer;
Dat: array[1...10] of integer;
Begin
Dat[1] := 7;
Dat[2] := 9;
Dat[3] := 10;
Dat[4] := 5;
Dat[5] := 6;
Dat[6] := 7;
Dat[7] := 9;
Dat[8] := 8;
Dat[9] := 6;
Dat[10] := 9;
s: = 0;
for k := 1 to 10 do
s:= s + Dat[k];
writeln(s);
End.
В программе будет вычислена сумма элементов массива:
s = 7+9+10+5+6+7+9+8+6+9 = 76

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (n,m):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Исходная матрица ***');
  var a:=MatrRandom(n,m,-99,99);
  a.Println(4); Writeln(4*m*'-');
  var s:='';
  for var i:=0 to n-1 do
    if a.Row(i).Pairwise.Select(t->Sign(t[0])<>Sign(t[1])).All(t->t=True) then
      s+=(i+1)+' ';
  if s.Length=0 then Writeln('Нет искомых строк')
  else Writeln('Номера строк: ',s)
end.

Пример
Количество строк и столбцов в матрице: 10 5
*** Исходная матрица ***
 -27  90  57   3 -62
  35 -92 -54  36  17
 -57 -32 -31  85  84
  22 -82 -42 -26  87
 -69  75 -26 -88   7
 -76 -60 -73  35  45
  94  66  95 -85 -40
  83 -60  59 -56  49
 -81 -53  67  11  -9
 -39 -73  67 -49  91

Номера строк: 8