1.начцелтаб Dat[1:10]цел к, sDat[1] := 7Dat[2] := 9Dat[3] := 10Dat[4] := 5Dat[5] := 6Dat[6] := 7Dat[7] := 9Dat[8] := 8Dat[9] := 6Dat[10] := 9s: = 0нц для к от 1 до 10s:= s + Dat[k]всеКЦвывод sКОНВ программе будет вычислена сумма элементов массива:s = 7+9+10+5+6+7+9+8+6+9 = 762.DIM Dat(10) AS INTEGERDIM k,m,n AS INTEGERDat[1] = 7Dat[2] = 9Dat[3] = 10Dat[4] = 5Dat[5] = 6Dat[6] = 7Dat[7] = 9Dat[8] = 8Dat[9] = 6Dat[10] = 9s = 0FOR k := 1 TO 10IF Dat(k) < m THENs:= s + Dat[k]ENDIFNEXT kPRINT sВ программе не задано значение переменной m. Если считать, что m=0, то в программе вычисляется сумма отрицательных элементов массива, т.е. s=03.Var k, m, n: integer;Dat: array[1...10] of integer;BeginDat[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 dos:= s + Dat[k];writeln(s);End.В программе будет вычислена сумма элементов массива:s = 7+9+10+5+6+7+9+8+6+9 = 76