<em>Это из алгебры логики, логическая операция, дизъюнкция, логическое сложение. аналог или, or;∨</em>
<em>C∨0 = С</em>
===== PascalABC.NET =====
begin
var a := ArrRandom(15, 0 , 20); // глупый диапазон c) 0 всегда
a. Println;
a.Count(p -> p.IsOdd).Println; // a)
var s := a.Where(p -> (p mod 3 =0) or (p mod 5 = 0));
Println('Сумма', s.Sum, ' Количество', s.Count); // b)
a[1::2].Where(p -> p < 0).Sum.Println // c
end.
Ошибка есть и она не одна.
1. Код приведен не полностью - после else должно быть что-то еще и обязательно замыкаться end.
2. abc - не такой функции в Паскале, возможно Вы имели в виду abs - абсолютная величина, т.е. модуль.
3. if ab then ... это тоже не верно, т.к. ab - не является логическим выражением или булевой пременной - видимо не дописал: if ab>ac then...
Sub Zadanie16084380()
' Дана матрица Y(5,5) (элементы матрицы выбрать самостоятельно). Вы-
' числить элементы новой матрицы Z(5,5) по правилу: zij = yij / ki, где ki – количе-
' ство положительных элементов i-той строки.
' Если в i-той строке положительных элементов нет, то i-тая строка в матрице
' Z должна быть заполнена нулями
Const N = 4
Dim Y,Z,K
ReDim Y(N, N), Z(N, N), K(N)
S=""
Randomize
For i = 0 To N
K(i) = 0
For j = 0 To N
Y(i, j) = Int(100 * Rnd) - 50
S = S & Y(i, j) & " "
If Y(i, j) > 0 Then
K(i) = K(i) + 1
End If
Next
S = S & vbNewLine
Next
S = S & vbNewLine
For i = 0 To N
For j = 0 To N
if K(i) = 0 then
Z(i, j) = 0
else
Z(i, j) = Y(i, j) / K(i)
end if
S = S & Z(i, j) & " "
Next
S = S & vbNewLine
Next
MsgBox (s)
End Sub
Call Zadanie16084380()
код написан на VBScript
Ответ:
$A$2+$B5
Объяснение:
$A не изменяется при копировании
$2 не изменяется при копировании
$B не изменяется при копировании
3 изменяется при копировании на +2 (8-6)
