Помогите пожалуйста покрасить максимальный элемент в задаче в красный цвет!

20.10.2008, 20:40. **Показов** 3123. **Ответов** 1

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

Пожалуйста помогите перекрасить в программе максимальный элемент (max) в красный цвет с помощью функции TextColor. Очень вас прошу, на вас последняя надежда!

Код

program Dvumeri;
uses crt;
const n=5;
      m=5;
var A:array[1..n,1..m] of integer;
    i,j,max,maxi,maxj:byte;
    sr_ar:real;
    sum:word;
begin
clrScr;
randomize;
for j:=1 to n do
 begin
  for i:=1 to m do
   begin
    A[j,i]:=random(10);
     write(A[j,i]:4);
    end;
   writeln;
  end;
 max:=A[1,1];
 maxi:=1;
 maxj:=1;
 for j:=1 to n do
  for i:=1 to m do
   if A[j,i]>max then
    begin
     max:=A[j,i];
     maxi:=i;
     maxj:=j;
    end;
   writeln;
   writeln('Max element= ', max, ', nahodachyisa v ', maxi, ' stolbce i ', maxj, ' stroke');
   for j:=1 to n do
    for i:=maxi+1 to m do
     sum:=sum+A[j,i];
   writeln('Summa elementov, naxodazhixsa pravee stolbca s max elementon= ', sum);
   sum:=0;
   if maxj<>n then
   begin
   for j:=maxj+1 to n do
    for i:=1 to m do

   sum:=sum+A[j,i];
   sr_ar:=sum/((n-maxj)*m);
   writeln('Srednee arifmeticheskoe elementov, raspolohennux nize stroki s max elementom= ', sr_ar:4:3)
   end
   else
   writeln('Na 0 delit nelza');
   readln;
   write(A[j,i]:4);
 end.

Добавлено через 1 минуту 18 секунд
Нужно что бы при выводе матрицы на экран в нём красным отображался максимальный элемент=((

@Puporev · 20.10.2008, 22:04

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

Код

program Dvumeri;
uses crt;
const n=5;
m=5;
var A:array[1..n,1..m] of integer;
i,j,max,maxi,maxj:byte;
sr_ar:real;
sum:word;
begin
clrScr;
randomize;
for j:=1 to n do
for i:=1 to m do
A[j,i]:=random(10);
max:=A[1,1];
maxi:=1;
maxj:=1;
for j:=1 to n do
for i:=1 to m do
if A[j,i]>max then
    begin
      max:=A[j,i];
      maxi:=i;
      maxj:=j;
   end;
writeln;
writeln('Matrica:');
for j:=1 to n do
    begin
       for i:=1 to m do
          begin
             if (i=maxi)and(j=maxj)then textcolor(red)
             else textcolor(black);
             write(A[j,i]:4);
          end;
       writeln;
     end;
writeln('Max element= ', max, ', nahodachyisa v ', maxi, ' stolbce i ', maxj, ' stroke');
for j:=1 to n do
for i:=maxi+1 to m do
sum:=sum+A[j,i];
writeln('Summa elementov, naxodazhixsa pravee stolbca s max elementon= ', sum);
sum:=0;
if maxj<>n then
     begin
        for j:=maxj+1 to n do
        for i:=1 to m do
        sum:=sum+A[j,i];
        sr_ar:=sum/((n-maxj)*m);
        writeln('Srednee arifmeticheskoe elementov, raspolohennux nize stroki s max        
        elementom= ', sr_ar:4:3)
     end
else
writeln('Na 0 delit nelza');
readln
end.

	20.10.2008, 22:04

Опции темы