Заполнить двумерный массив по правилу: а) 1 0 1 0 - вопрос №84812341010110101101011010 от katiapopovici 07.07.2020 04:58

Question

Информатика: Заполнить двумерный массив по правилу: а) 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 б) 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 в) 1 2 3 4 5 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 г) 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0

katiapopovici · Answer

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
Writeln('a)');
var m:=MatrGen(4,5,(i,j)->j.IsEven?1:0); m.Println(2);
Writeln('б)');
m:=MatrGen(4,5,(i,j)->j+1); m.Println(2);
Writeln('в)');
m:=MatrGen(4,5,(i,j)->i=0?j+1:5*(i+1)+j+1); m.Println(3);
Writeln('г)');
m:=MatrGen(4,5,(i,j)->(i+j).IsOdd?0:1); m.Println(2);
end.

Заполнить двумерный массив по правилу: а) 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 б) 1 2 3 4 5 1 2 3

Заполнить двумерный массив по правилу: а) 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 1 0 1 0 1 б) 1 2 3 4 5 1 2 3