Вопросы от Ромарио! Опции

[Romario]

Начинаю серьёзно учить Паскаль и вот решил создать и пихать сюда все неясности, если вы конечно не против
Первые вопросы:

• Как в Паскале менять цвета?
  
• Как  --//-- создать таблицу и что-нить в ней написать.
  
• И может кто-нить меня раздуплит в массивах? ;D

[Alex]

Дана матрица размерности N на M. Найти строку, в которой максимальный элемент минимален в соответствующем столбце.

Вот мое решение:

Код

uses crt;
const n=3;m=4;
var a:array[1..m,1..n] of integer;i,j,k,l,min,max,str:integer;
{k-номер столбца, где находится максимальный элемент строки}
begin
 ClrScr;
 for i:=1 to m do
   for j:=1 to n do begin
     write('a[',i,',',j,']=');
     readln(a[i,j]);
   end;

 for i:=1 to m do begin
   max:=a[i,1];
   for j:=1 to n do
     if a[i,j]>max then begin max:=a[i,j];k:=j end;
   min:=a[1,k];
   for l:=1 to n do
     if a[l,k]<min then min:=a[l,k];
   if min=max then begin str:=i;break;end;
 end;
 writeln('The number of needed string is ',str);
 readln
end.

Во-вторых твоя ошибка в том,что ты ищешь максимальный элемент во всей матрице, а надо в каждой строке!