Ребят подскажите пожалуйста с задачей в паскале. Сформировать матрицу целых чисел, размер матрицы 3х3. Найти min элемент и max

[Леночка 974]

Сформировать матрицу целых чисел, размер матрицы 3х3. Найти min элемент в первом столбце увеличить его на 10 и сравнить с max элементом третьей строки. Вывести наибольшее.

[NikiToZz_]

program zadacha;
    var   a:array[1..3,1..3] of integer;
      i,j,min,max:integer;
begin
  randomize;
  for i:=1 to 3 do begin
    for j:=1 to 3 do begin
      a[i,j]:=random(10)-5;
      write(a[i,j]:4);
    end;
    writeln;
    writeln;
  end;
  min:=a[1,1];
      for i:=2 to 3 do
          if a[i,1]<min then min:=a[i,1];
  min:=min+10;
  max:=a[3,1];
  for j:=2 to 3 do
      if max<a[3,j] then max:=a[3,j];
  if min<max then write(max)
  else write (min);
  readln;
end.

[Serge_Bliznykov]

NikiToZz_, отлично!

едиственное, я бы строчку генерации случайных чисел (если уж нужны отрицательные) записал так:

a[i,j]:=-5 + random(10);

в некоторых компиляторах Паскаля (Turbo Pascal) такая запись, как у Вас, приводит к runtime error (косяки компилятора).
Но в целом всё отлично!

[NikiToZz_]

Serge_Bliznykov, спасибо)

[Леночка 974]

Спасибо большое))))

[Леночка 974]

Ребят помогите еще с этой задачей

Товарно-материальные ценности. Поля:
наименование ТМЦ, штрих-код, количество на складе, стоимость Текстовый Наименование ТМЦ