Const
n = 6;
var
i, j: integer;
a: array[1..n, 1..n] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if i mod 2=0 then a[i, j] := 0
else a[i, j] := 1;
write(a[i, j])
end;
writeln;
end;
end.
Тестовое решение:
111111
000000
111111
000000
111111
000000
<span>//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var a:=MatrRandom(4,5,-20,20).Println;
var c:=a.ElementsByRow;
Println('Кол-во положительных ->',c.Where(t->t>0).Count);
Println('Кол-во кратных 7 ->',c.Where(t->t mod 7=0).Count);
Println('Сред. арифм. отрицат. ->',c.Where(t->t<0).Average);
var b:=a.ElementsWithIndexes.MinBy(t->t[0]);
Writeln('Минимальный ->', b[0],'[',b[1]+1,',',b[2]+1,']');
b:=a.ElementsWithIndexes.Where(t->t[0]<0).MaxBy(t->t[0]);
Writeln('Максимальный отриц. ->', b[0],'[',b[1]+1,',',b[2]+1,']');
end.
Пример:
-10 6 12 7 4
-8 -4 3 -1 6
9 -2 16 19 -18
18 4 -3 12 -8
Кол-во положительных -> 12
Кол-во кратных 7 -> 1
Сред. арифм. отрицат. -> -6.75
Минимальный ->-18[3,5]
Максимальный отриц. ->-1[2,4]
</span>
begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====