Формирование и обработка массивов арифметических данных с использованием процедур с параметрами

[NikaAutumn]

Всем привет! Ребят, очень требуется ваша помощь!!!

Нужно решить задачу:

Имеется массив С из пяти строк и 6 столбцов.
1). Сформировать одномерный массив В, содержащий все положительные элементы массива C (если элемент отрицательный, то значение элемента :=0) и двумерный массив D, содержащий координаты элементов массива B;
2). определить сумму отобранных элементов и их кол-во;
3). определить минимальное и максимальное значения отобранных элементов и их координаты и поменять местами столбцы исходной матрицы, в которой они найдены, если номера столбцов разные.

Примечание: массив считывается из текстового файла и результат решения задачи выводится на черный экран(либо в текстовый файл).

Буду очень благодарна за любую помощь!
Заранее спасибо.

[Alex11223]

И? Покажите ваши наработки, расскажите, что не получается или огласите сумму и способы получения вознаграждения за решение.

выводится на черный экран

оО

[NikaAutumn]

Меня интересует больше пункт1.
Примерно мои мысли:

for i:=1 to 5
for j:=1 to 6
begin
readln(f, c[i,j]);
if c[i,j]>0 then b[i]:=c[j,i]; d[?]:=i; d[?]:=j else b[i]:=0; d[?]:=i; d[?]:=j;
end.




Turbo Pascal

[NikaAutumn]

Так же у меня есть похожая задача.

выложу через пару минут

[Alex11223]

если элемент отрицательный, то значение элемента :=0

Что-то не очень понял, что это означает: элементу С или B.

if c[i,j]>0 then b[i]:=c[j,i]

Если не положительное, то следующее положительое число запишется не за последним, а где-то дальше, перепрыгнув. Если выше имеется в виду массив В, то b[i] надо 0 присвоить если число отрицательное.
upd:ой, и i же уже используется в цикле. Надо другой счетчик для В использовать.

[NikaAutumn]

PROGRAM LR5;
USES CRT;
CONST M=3; N=6;
TYPE TB=ARRAY [1..M,1..N] OF REAL;
VAR A,AN:STRING[80];
B:TB;
I,J:INTEGER;
IMAX,JMAX,IMIN,JMIN:INTEGER;
MIN,MAX:REAL;
FI:TEXT;


PROCEDURE P (B:TB; M,N:INTEGER);
BEGIN
FOR I:=1 TO M DO BEGIN
WRITE (CHR(186));
FOR J:=1 TO N DO CASE J OF
1,2,4,5: WRITE (B[I,J]:11:4,GHR(179));
3: WRITE (B[I,J] :11,CHR(179):2);
6: WRITELN (B[I,J]:12, CHR(186));
END;
IF I = M THEN WRITELN (AN) ELSE WRITELN (A) ;
END
END;

PROCEDURE VVOD (VAR B:TB);
BEGIN
ASSIGN (FI,'D:\LR5.txt');
RESET(FI);
FOR I:=1 TO 4 DO BEGIN
READLN (FI, A);
WRITELN (A);
END;
READLN (FI,A);
READLN (FI,AN);
CLOSE(FI);
RESET(FI);
FOR I:=1 TO M DO
FOR J:=1 TO N DO
READ (FI,B[I,J]);
P(B,M,N);
CLOSE(FI);
END;

PROCEDURE OBR (VAR B:TB; M,N:INTEGER;VAR MN, MX:REAL;VAR II,12,Jl,J2:INTEGER );
VAR I,J:NTEGER;
R:REAL;
BEGIN
MN:= B[1,1] ; MX:= B[1,1];
I1:= 1; I2:= 1; J1:=1; J2:= 1;
FOR I:= 1 TO M DO
FOR J :=1 TO N DO
IF B[I,J] < MN THEN BEGIN
MN :=B[I,J]; I1:=I; J1:=J;
END
ELSE
IF B[I,J]>MX THEN BEGIN
MX:=B[I,J]; 12:=I; J2:=J;
END;
WRITELN ('I1=', I1, 'J1=', J1,'I2=', I2, 'J2=',J2);
B[I1,J1]:= MX; B[I2,J2] :=MN;
END;

{ OSNOVNAYA }
BEGIN
CLRSCR;
ASSIGN(OUTPUT,'');
REWRITE(OUTPUT);
VVOD (B);
OBR(B,M,N,MON,MAX,IMIN,IMAX,JMIN,JM AX);
WRITELN(#10#13, 'REZULTATY:', #10#13);
P(B,M,N);
WRITELN (#10#13,'MIN=', MIN:12, 'IMIN=',IMIN, 'JMIN=', JMIN,
#10#13,'MAX=', MAX:12, 'IMAX=',IMAX, 'JMAX=', JMAX);
CLOSE (OUTPUT);
END .

[NikaAutumn]

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

Что-то не очень понял, что это означает: элементу С или B.

если в исходном массиве элемент отрицательный, то новому массиву присваивается ноль

[Alex11223]

Как-то так тогда.

k:=1;
for i:=1 to 5 do
   for j:=1 to 6 do 
   begin   
      if (c[i,j] >= 0) then b[k]:=c[i,j] else b[k]:=0;
      inc(k);
   end;

А про координаты в двухмерном массиве D я что-то тоже не понял оО

Кстати, используйте тег [CODE] (значок #) для сохранения форматирования и подсветки кода в сообщении.

[NikaAutumn]

Координаты записываются в две строки, в 1 - i, во 2 -j.

Я сама смысла в этом не вижу...

Изначально пункт один звучал так: Сформировать трехмерный массив из всех положительных значений и их индексов в исходном массиве; если таких значений нет, результат должен быть равен нулю.

Но преподаватель подумал, что это сложновато-то и сказал делать два массива.

[Alex11223]

Тогда так вроде.

k:=1;
for i:=1 to 5 do
   for j:=1 to 6 do 
   begin   
      if (c[i,j] >= 0) then b[k]:=c[i,j] else b[k]:=0;
      d[1, k]:=i;
      d[2, k]:=j;
      inc(k);
   end;