Обработка - осмыслить полученную информацию
Хранение - сохранение или запись полученной информации(в голове или на школьной доске)
передача - переместить информацию в пространстве, например тетрадь или голос
Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
Var
m : array[1..4,1..4] of Integer;
m_new : array[1..4] of Integer;
i,j : Integer;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 4 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
If i=j then m_new[i]:=m[i,j];
end;
Writeln;
end;
Writeln('Главная диагнональ: ');
For i:=1 to 4 do Write(m_new[i]:5);
Writeln;
end.
Задание будет в прикрепленном файле. Немного костыльно , но работает . Тут в ручную нужно задавать элементы массива.
Если они изначально заданны , то просто переделай
a [/*количество элементов*/ ] = { /* элементы через запятую */} ;