Двумерные массивы

[Carefuly]

1.В двумерном массиве z[1..5,1..5] найти наименьший элемент среди элементов побочной диагонали. Вывести на экран его индексы и значение.
2.Создать массив случайных чисел A[1..3,1..4].Найти сумму элементов этого массива, который больше 9 и стоят на четных местах в массиве.
Выручайте!!!

[Sciv]

1.

min_i:=5;
min_j:=1;
for i:=4 downto 1 do 
  if a[i,5-i+1]>a[min_i,min_j] then begin
    min_i:=i;
    min_j:=5-i+1;
  end;
WriteLn(min_i,', ',min_j,'=',a[min_i,min_j]

[Carefuly]

Большое спасибо за помощь)

[Mad_Cat]

а в двумерном массиве какие места четные то О_о

[Carefuly]

Ну это,наверное, зависит от размера массива...хотя я не уверен

Можно по подробней написать.я в переменных запутался((

В двумерном массиве M[1..6,1..7] определить индексы наименьшего элемента в каждой строке

[Sciv]

2.

sum:=0;
for i:=1 to 3 do
  for j:=1 to 4 do
    if (i mod 2=0) and (j mod 2=0) and (a[i,j]>9) then sum:=sum+a[i,j];

[Carefuly]

В двумерном массиве M[1..6,1..7] определить индексы наименьшего элемента в каждой строке

[Sciv]

Сообщение от Carefuly

В двумерном массиве M[1..6,1..7] определить индексы наименьшего элемента в каждой строке

for i:=1 to 6 do begin
  min[i]:=1;
  for j:=2 to 7 do
    if a[i,j]<min[i] then min[i]:=j;
  end;
  for i:=1 to 6 do WriteLn('min=',min[i],'; a[',i,',',min[i],']=',a[i,min[i]])

[Carefuly]

Создать двумерный массив случайных чисел A[1..10,1..10].В каждой строке этого массива найти наибольший элемент и записать его в линейный массив B[1..10].Вывести оба массива.

[Sciv]

Не, дорогой, ты в конец обнаглел. Тут не универсальный онлайн-решатель, давай уже сам, задачи-то элементарные, примеры выше.