Ответ: число 2.
Объяснение: (4 - 2) * 4 * 4 - 2 - 2 = 28
Const
K = 13;
Var
A:array[1..K] of integer;
i,j:integer;
Begin
{Заполнение массива}
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
{Сортировка пузырьком}
For i:= 1 to K do
For j:= 1 to K-1 do
if A[j]>A[j+1] then Swap(A[j],A[j+1]);
{Вывод массива}
Write('Отсортированный массив: ');
For i:= 1 to K do
Write(A[i],' ')
End.
1)
B2 = D1 - 1 = 5 - 1 = 4
C2 = A1 + B1 = 3 + 4 = 7
D2 = C1 + D1 = 2 + 5 = 7
C2 = D2, значит B2 = A2 = 4
D1 - A1 = 5 - 3 = 2 <> 4 | -
B1 / C1 = 4 / 2 = 2 <> 4 | -
D1 - C1 + 1 = 5 - 2 + 1 = 4 | +
Ответ: 3
2)
A2 = (C1 + A1)/2 = 3
B2 = C1 - D1 = 1
C2 = A2 - D1 = 3 - 2 = 1
По диаграмме понимаем, что D2 = B2 = C2 = 1
A1 - 2 = 3 - 2 = 1 | +
Ответ: 1
3)
A2 = 225 + 225 / 15 + 15 = 225+ 15 +15 = 255
B2 = A1 + A1/(B1-10) = 225 + 225/5 = 225 + 45 = 270
C2 = 1 + 1 =2
255 + 2 + 270 =527
Var B: array [1..12] of integer; i, s, s_min: integer;
begin
writeln;
randomize;
s := 0;
s_min := 0;
for i := 1 to 12 do
B[i] := random(65) - 5;
for i := 1 to 12 do
begin
write(B[i], ' ');
s := s + B[i];
if B[i] < 7
then
s_min := s_min + 1;
end;
writeln();
writeln('Sum: ', s, ', amount of elemnts which lower than 7: ', s_min);
<span>end.</span>