Ответом ялвляется струйный притер для массовой цветной печати.
Ответ №3
Ухххххх всё возможно не рационально решал но должно всё правельно быть(проверял)
uses crt;
var A:array[1..4,1..5] of integer;
i,j,n,p:integer;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
A[i,j]:=random(9);
write(A[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to 4 do
begin
n:=A[i,1];
A[i,1]:=A[i,5];
A[i,5]:=n;
end;
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
write(A[i,j],' ');
end;
writeln;
end;
for i:=1 to 5 do
begin
p:=p+A[1,i];
p:=p+A[4,i];
end;
for i:=2 to 3 do
begin
p:=p+A[i,1];
p:=p+A[i,5];
end;
writeln(p);
<span>end.</span>
В ответе F два раза равно 1 и один раз 0, значит убираем уравнения на умножения, остается два уравнения на сложение 2 и 3.
теперь подставляем вуравнения числа из таблицы.
2 уравнение не подходит, т.к. в первой строчке будет 1+1=1, а в ответе 0.
Следовательно ответ 3
Begin
var a := ArrRandom(7, -10, 10);
a.println();
writeln(a.Where(x -> x mod 2 = 0).Average);
end.