• Помогите пожалуйста.Дана матрица 5 на 5. Найти наименьшее из значений элементов побочной диагонали и двух соседних с ней линий ( Pascal ABC ).

Ответы 6

  • А нет прости
  • Сек
  • Не туда посмотрел
    • Автор:

      honorato
    • 5 лет назад
    • 0
  • Все, поправил.
    • Автор:

      ware
    • 5 лет назад
    • 0
  • спасибо большое
    • Автор:

      karenxhik
    • 5 лет назад
    • 0
  • var  A: array[1 .. 5,1 .. 5] of integer;  i, j, n, min: integer;beginrandomize;n := 5;writeln('Случайная матрица:');for i:=1 to n dobegin  for j:=1 to n do  begin    A[i,j]:=Random(51)-25;    write(A[i,j]:4);  end;  writeln;end;//Верхняяj := n;min := A[1, n - 1];for i := 1 to n - 1 dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент соседней верхней диагонали: ',min);//Побочнаяj := n + 1;min := A[1, n];for i := 1 to n dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент побочной диагонали: ',min);//Нижняяj := n + 1;min := A[2, n];for i := 2 to n dobegin  j := j - 1;  if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент соседней нижней диагонали: ',min);end.
    answer img
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years