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.
нач
целтаб 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