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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько цветов будет в палитре, если каждый базовый цвет кодировать в 3 битах?
2^3 = 8 цветов (скорее всего оттенки серого)