Врезультате опроса выяснилось,что из 22 девочек 14 любят тюльпаны, 10-розы, 4- и розы и тюльпаны. а остальным нравятся ландыши. сколько девочек предпочитают ландыши?
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.
