<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3>
procedure FillArr(var a: array of integer; n, k: integer);
begin
a := ReadArrInteger(n);
Println($'{a.Where(t -> t = k).Count} эл. равны k');
end;
begin
var a: array of integer;
var (n, k) := ReadInteger2('n,k->');
FillArr(a, n, k);
end.
1.
В задании скорее всего перепутано и нужно найти значение переменной D т.к. значение B не меняется и постоянно будет равно 18.
переменная D = 4, цикл выполнится 4 раза.
8. Нет алгоритама для решения
16. фрагмент схемы: программа находит произведение отрицательных элементов массива
с помощью условия Хi<0 определяется отрицательный элемент
само произведение вычисляется и хранится черех переменную R
Классификации на математике: числа бывают: натуральными(1,2,3); целыми(2, -5); дробными(6,73). На русском: предложения бывают: простыми, сложными: сложноподчинёнными, сложносочинёнными, сложными с разными видами связи, сложные бессоюзные.
Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
если всё прибавить надо то 9+8+7+10+6+8+6=54
