Как найти минимальный элемент побочной диагонали?

@Centurion11 · Регистрация: 26.01.2014

Студворк — интернет-сервис помощи студентам

Как найти минимальный элемент побочной диагонали?Помогите пожалуйста

Рассмотрим квадратную матрицу.

Pascal

program sbb;
uses crt;
var
  i,j,s:integer;
a:array[1..5,1..10] of integer;
begin
  for i:=1 to 5 do
  begin
    for j:=1 to 10 do
    begin
      random(50);
      a[i,j]:=random(50);
      write(' ');
      write(a[i,j]);
    end;
    writeln
  end;

@CodeR · 01.02.2014, 12:45

Pascal

1
2
3

min:=A[1,n];//минимальный делаем первый элемент побочной дигонали
For i:=2 to n do 
 if A[i,n-i+1]<min then min:=A[i,n-i+1];

Опции темы