1

Нужно найти среднее арифметическое побочной диагонали матрицы 4*4. Алгоритм вроде правильный, но как то не так считает.

for i:=1 to n do
  for j:=1 to n do begin
   if ((j = 4) AND (i = 1)) OR  ((j = 3) AND (i = 2)) OR  ((j = 2) AND (i = 3)) OR  ((j = 1) AND (i = 4)) then

   k := k+1;
   sum := sum + matrix[i,j];
  end;
 end;

Ср. арифм. = sum/k

1 ответ 1

2

А почему так сложно? А не

for i:=1 to n do
begin
    sum := sum + matrix[i,5-i];
end;

Это первое. А второе - да, сразу не заметил - вы суммируете все подряд, и только k увеличиваете при ваших условиях.

for i:=1 to n do
  for j:=1 to n do begin
   if ((j = 4) AND (i = 1)) OR  ((j = 3) AND (i = 2)) OR  ((j = 2) AND (i = 3)) OR  ((j = 1) AND (i = 4)) then
   begin
       k := k+1;
       sum := sum + matrix[i,j];
    end;
  end;
 end;
3
  • UPD: Добавил код 20 янв 2019 в 12:16
  • Убрал код, проблема в том кусочке была все таки. 20 янв 2019 в 12:19
  • Согласен, пропущен begin-end...
    – Harry
    20 янв 2019 в 12:21

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.