1.где черный квадратик поясняем еденичкой, а где квадрат белый даем пояснение виде нуля, поясняем по горизонтали)
<span>Информация<span> для человека - это содержание сигналов (сообщения), воспринимаемых человеком непосредственно или с помощью специальных устройств, расширяющее его знания об окружающем мире и протекающих в нём процессах.</span></span><span>Сигналы могут быть непрерывными или дискретными.</span><span>Непрерывный сигнал принимает бесконечное множество значений из некоторого диапазона. Между значениями, которые он принимает, нет разрывов.</span><span><span>Дискретный сигнал </span><span>принимает конечное число значений. Все значения дискретного сигнала можно пронумеровать целыми числами. но я не уверен что правильно
</span></span>
Всего восемь путей( по крайней мере я столько нашла)
А б е к
А в к
А г к
А д д к
А д ж г к
А д ж г в к
А б в к
А г ж к
program raf105;
const
n= 4; //Размер матрицы (кол-во и длинна строк). Можно менять
var
a:array[1..n,1..n] of integer;
asum:array[1..n] of integer;
i,j,k,sum,kolsum: integer;
x: boolean;
begin
write('Введите число k (не больше ',n,'): ');
readln(k);
for i:=1 to n do
begin
writeln;
writeln('Введите ',n,' чис. ',i,' стр.');
for j:=1 to n do
readln(a[i,j]);
end;
writeln;
writeln('Суммы элементов тех строк, в которых первые ',k,' элем. положительные');
for i:=1 to n do
begin
x:= true;
sum:= 0;
for j:=1 to k do
begin
if x and (a[i,j] <= 0)
then x:= false;
end;
if x
then
begin
for j:=1 to n do
sum+= a[i,j];
kolsum+= 1;
asum[kolsum]:= sum;
writeln(asum[kolsum]);
end;
end;
end.