Создание матрицы 3х4

[darkline]

Помогите сделать матрицу 3х4, которая находит общее количество положительных чисел и находит самое большое число в 3 строчке (при этом выделяя его цветом и показывая его координаты).

Выглядит примерно так:

15 0 -17 14
5 -10 -20 -2
11 -11 7 -6

Самый большой элемент в 3 строке 11, находится [3,1].
В матрице 5 положительных чисел.

[xen]

Вот ася - 630076408. Пиши помогу.

[Vanta11a]

{Задаем изначальные параметры}
max_i:=1;
max_j:=3;
max:=a1[max_i,max_j];
{перебираем элементы}
for i:=1 to 4 do
for j:=1 to 3 do
begin
if (a1[i,j]>0) then inc(pol_chisl); {число >0 - увеличиваем счетчик}
if (a1[i,j]>max) and (j=3) then {число больше ранее найденного максимального, стока 3я}
begin
max:=a1[i,j]; {меняем максимальное значение числа и запоминаем индексы}
max_i:=i;
max_j:=j;
end;
end;
{выводим всю эту лабуду на экран}
for i:=1 to 4 do
begin
for j:=1 to 3 do
if (max_i<>i) and (max_j<>j) then {координаты не совпадают с координатами найденного максимального}
write(a1[i,j],' | ') {просто выводим элемент}
else
begin
setcolor(red); {меняем цвет текста}
write(a1[i,j],' | '); {выводим элемент}
setcolor(black); {возвращаем стандартный цвет текста}
end;
writeln;
end;
writeln('Максимальный элемент в 3й строке ',max,', находится по координатам [',max_i,',',max_j,']');
writeln('Число положительных элементов = ',pol_chisl);

Примерно так. Объявить массив, переменные, заполнить массив - уже сам. Также используй для смены цвета текста функцию из хелпа своего компилятора.

[darkline]

Вот я немного дополнил, только у меня почему то выводится 4 строки и 3 столбика. И не всегда правильно вычисляет общее количество положительных чисел. Можете помочь?

program matrix;
uses crt;
var max, max_i, max_j, i, j, pol_chisl : integer;
a1: array [1..4,1..3] of integer;
begin
clrscr;
max_i:=1;
max_j:=3;
max:=a1[max_i,max_j];
randomize;
for i:=1 to 4 do
for j:=1 to 3 do
a1[i,j]:=random(20)-10;
begin
if (a1[i,j]>0) then inc(pol_chisl);
if (a1[i,j]>max) and (j=3) then
begin
max:=a1[i,j];
max_i:=i;
max_j:=j;
end;
end;

for i:=1 to 4 do
begin
for j:=1 to 3 do
if (max_i<>i) and (max_j<>j) then
write(a1[i,j],' | ')
else
begin
setcolor (red);
write(a1[i,j],' | ');
setcolor (black);
end;
writeln;
end;
writeln('Максимальный элемент в 3й строке ',max,',находится по координатам  [',max_i,',',max_j,']');
writeln('Число положительных элементов = ',pol_chisl);
readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Vanta11a]

По столбцам и строкам:
"4" заменить на "3", а "3" - на "4"
По положительным числам:
сразу после begin`а обнулить переменную pol_chisl
Если не поможет - заменить

if (a1[i,j]>0) then inc(pol_chisl);

на

if (a1[i,j]>0) then pol_chisl:=pol_chisl+1;

[darkline]

Ладно спасибо за помощь, уже разобрался.)

[sittok]

это в Bulder или Visual?

[Serge_Bliznykov]

это в Bulder или Visual?

Это в TurboPascal