ЖИЗНЕННОЙ, СИТУАЦИИ, ПОНАДОБЯТСЯ, ВЫЧИСЛИТЕЛЬНЫЕ Будешь писать неграмотно лично я и отвечать не буду - обидно за русский язык!! Вычислительными будем называть такие таблицы, в которых значения некоторых свойств вычисляются с использованием значений других свойств из этой же таблицы. Вычислительная таблица может содержать итоговую строку (графу). Итоговая строка (графа) имеет заголовок «Итого» или «Всего». В ячейках итоговой строки (графы) размещают суммы чисел из соответствующих граф (строк). Важно, чтобы эти суммы имели смысл.
Const n = 5; const m = 5; var a:array [1..n,1..m] of integer; i,j,k,l,max,min:integer; begin randomize; for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(30)+1; write (a[i,j]:4); end; writeln; end; max:=1; min:=1; k:=1; l:=1; for i:=1 to n do for j:=1 to m do if a[i,j]>a[max,k] then begin max:=i; k:=j; end else if a[i,j]<a[min,l] then begin min:=i; l:=j; end; writeln ('Max: ',a[max,k],'. Index: [',max,',',k,']'); writeln ('Min: ',a[min,l],'. Index: [',min,',',l,']'); end.
наверное 2 вариант, но могу ошибаться : )