решить Расписать решение. 1) На рисунке- схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И и - id1088733320220806 от Baka1111 06.08.2022 16:13

Question

Информатика: решить Расписать решение. 1) На рисунке- схема дорог, связывающих города А, Б, В, Г, Д, Е, Ж, З, И и К. По каждой дороге можно двигаться только в одном направлении, указанном стрелкой. Сколько существует различных путей из города А в город , не проходящих через город Д? 2) Найдите значение выражения. ответ запишите в десятичной системе счисления. 1010110 ( снизу 2) - 251 ( снизу 8) + А8 (снизу 16).​

Baka1111 · Accepted Answer

Program samost;
const n=5;
m=5;
type tmatr = array[1..n, 1..m] of integer;
var a:tmatr;
i,j,k:integer;
procedure PrintMatrix(var g:tmatr);
begin
var i,j:integer;
for i:=1 to n do
begin
for j:=1 to n do
write(g[i,j]:4);
writeln
end;
end;
procedure MakeMatrix;
begin
var i,j,k:integer;
randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(10)-5;
end;
end;
begin
MakeMatrix;
writeln('matrica A: ');
PrintMatrix(a);
k:=0;
for i:=1 to n do
for j:=2 to m-1 do
begin

if (a[i,j]>a[i,j-1])and(a[i,j]<a[i,j+1]) then
begin
k:=k+1; ;
writeln(i,j);
end;
end;
writeln('kolichestvo elementov = ',k);
end.

MOGZ ответил