Вопрос по информатике:
Дана целочисленная квадратная матрица проверьте являются ли все числа расположенные ниже главной и побожной диагоналей одинаковыми
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 03.04.2017 10:10
- Информатика
- remove_red_eye 18053
- thumb_up 41
Ответы и объяснения 1
A:array[1..13,1..13] of integer;
i,j,n,M,k,C:integer;
Begin
Randomize;
N:=Random(13)+1;
M:=N div 2 +2;
WriteLn('Исходный массив(',N,'):');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(N*2+1)-N;
Write(A[i,j]:3,' ');
End;
WriteLn
End;
k:=1;
if (N>2) then
Begin
C:=A[M,N-M+2];
For i:= M to N do
For j:= N-i+2 to i-1 do
if A[i,j] C then k:=0;
if k 0 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('В массиве нет элементов ниже главной и побочной диагоналей.');
End.
- 04.04.2017 10:10
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.