массив

[Irishka_F]

Задание:
найти первый и последний отрицательные элементы главной диагонали массива m[1..6,1..6] и раскрасить их в желтый цвет

[Stilet]

Наработки покажи.

[Irishka_F]

program number39;
uses crt;
const N=10;
type m=array [1..6,1..6] of integer;
var a:m;
i,j:integer;
k:integer;
begin
clrscr;
randomize;

for i:=1 to 6 do begin
 for j:=1 to 6 do begin
  a[i,j]:=random(20)-10;
   write (A[i,j]:4);
  end;
 writeln;
end;


k:=0;
for i:=1 to 5 do
for i:=1 to 5 do
i:=1;
j:=1;
if a[i,j] <0 then
k:=a[i,j];


for i:=1 to 5 do begin
 for j:=1 to 5 do begin
if k>0 then

writeln('индекс последнего отрицательного элмента = ',k)
else
writeln ('нет отрицательных элементов');
end;
end;
readln
end.

[ByAlex]

Зачем же вы так мудренно ищете элементы диагонали? Вот простая процедура -

for i:=1 to 6 do
   write(Arr[i,i],' '); // выводит элементы диагонали

[Korben5E]

не понятно действие на счет раскраски.. красить двери в соседнем корпусе?

при работе с диагональю достаточно 1го цикла, т.к. индексы по X и Y одинаковые

var 
c1,c2 : integer;
c1:=0;
c2:=0;

for i:=1 to 6 do
begin
if a[i,i] < 0 then 
    if c1 = 0 then 
        c1= i
    else 
        c2 =i;
end

c1 и c2 - хранят первую и последнюю координату отрицательных элементов.

[Irishka_F]

спасибо)

а как окрасить эти два элемента?

[Stilet]

а как окрасить эти два элемента?

Как вариант:

for i:=1 to 6 do begin
 for j:=1 to 6 do begin
   a[i,j]:=random(20)-10;
   if (i=c1)and(j=c2) then TextColor(yellow) else TextColor(white)
   write (A[i,j]:4);
 end; 
 writeln;
end;

Т.Е. речь идет о том чтоб не сразу массив вывести а потом, после проверки

[Katus]

k:=0;
for i:=1 to 5 do
for i:=1 to 5 do
i:=1;
j:=1;
if a[i,j] <0 then
k:=a[i,j];

зачем 26 раз присваивать i единицу? ошибку не выдает случайно?

[Korben5E]

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

Как вариант:

for i:=1 to 6 do begin
 for j:=1 to 6 do begin
   a[i,j]:=random(20)-10;
   if (i=c1)and(j=c2) then TextColor(yellow) else TextColor(white)
   write (A[i,j]:4);
 end; 
 writeln;
end;

Т.Е. речь идет о том чтоб не сразу массив вывести а потом, после проверки

угу, только с условием ошибся и рандом тут неуместен

if ((i=c1) and (j=c1)) or ((i=c2) and (j=c2)) then 
    TextColor(yellow) 
    else TextColor(white)