Массивы. Нужна помощь в доработке программы.

[~nezabudka~]

Массивы. Нужна помощь в доработке программы.

Дана матрица A[1:5;1:6]. Найти максимальный элемент в каждом столбце и сформировать из них массив. Если наибольший из этих элементов <100, то элементы полученного массива упорядочить по возрастанию. Иначе из полученного массива удалить максимальный элемент.
1. первый шаг я попробовала написать, но почему-то вектор формируется из максимального эл-та только первого столбца. где ошибка?

PROGRAM MATRICA;
USES WINCRT;
VAR
A:ARRAY [1..5,1..6] OF INTEGER;
B:ARRAY[1..6] OF INTEGER;
MAX,MIN,I,J,K:INTEGER;
BEGIN
RANDOMIZE;
FOR I:=1 TO 5 DO
FOR J:=1 TO 6 DO
A[I,J]:=RANDOM(100)-30;
WRITELN('ЗАДАН МАССИВ А');
FOR I:=1 TO 5 DO
BEGIN
WRITELN;
FOR J:=1 TO 6 DO
WRITE(A[I,J]:4);
END;
WRITELN;
FOR J:=1 TO 6 DO
BEGIN
K:=0;
MAX:=A[1,J];
FOR I:=1 TO 5 DO
BEGIN
IF A[I,J]>MAX
THEN
MAX:=A[I,J];
K:=K+1;
B[K]:=MAX;
END;
WRITELN('ВЕКТОР В,СФОРМИРОВАННЫЙ ИЗ МАКС. ЭЛ-ОВ СТОЛБЦОВ:');
FOR J:=1 TO 6 DO
WRITE(B[K]:4);
END;
END.

 

[Vladimir_S]

где ошибка?

В самом конце. Здесь:

FOR J:=1 TO 6 DO
WRITE(B[K]:4);

Цикл-то у Вас по J, а индекс массива B даете K.

 

[AlexZir]

Внутри внешнего цикла for со счетчиком j у вас опять заведен цикл с этим же самым счетчиком.

 

[AlexZir]

FOR J:=1 TO 6 DO
BEGIN
K:=0;
MAX:=A[1,J];
FOR I:=1 TO 5 DO
BEGIN
IF A[I,J]>MAX THEN MAX:=A[I,J];
K:=K+1;
B[K]:=MAX;
END;
WRITELN('ВЕКТОР В,СФОРМИРОВАННЫЙ ИЗ МАКС. ЭЛ-ОВ СТОЛБЦОВ:');
FOR J:=1 TO 6 DO
WRITE(B[K]:4);
END;

чтобы было понятней, о чём я писал - выделил цветом

 

[Vladimir_S]

То есть с учетом обоих замечаний, программа должна выглядеть так:

PROGRAM MATRICA;
 USES WINCRT;
 VAR
   A:ARRAY [1..5,1..6] OF INTEGER;
   B:ARRAY[1..6] OF INTEGER;
   MAX,MIN,I,J:INTEGER;
BEGIN
 RANDOMIZE;
 FOR I:=1 TO 5 DO
  FOR J:=1 TO 6 DO
   A[I,J]:=RANDOM(100)-30;
 WRITELN('ЗАДАН МАССИВ А');
 FOR I:=1 TO 5 DO
  BEGIN
   WRITELN;
   FOR J:=1 TO 6 DO
     WRITE(A[I,J]:4);
  END;
 WRITELN;
 FOR J:=1 TO 6 DO
  BEGIN
   B[J]:=A[1,J];
   FOR I:=2 TO 5 DO
    BEGIN
     IF A[I,J]>B[J]  THEN
     B[J]:=A[I,J];
    END;
  END;
 WRITELN('ВЕКТОР В,СФОРМИРОВАННЫЙ ИЗ МАКС. ЭЛ-ОВ СТОЛБЦОВ:');
 FOR J:=1 TO 6 DO
  WRITE(B[J]:4);
END.

 

[~nezabudka~]

Спасибо за поправку. Остальное оказалось попроще.:tehnari_ru_674:

 

[дима144]

задать программу нахождения количество участков на которых элементы массива монотонно

помогите пожалуйста



1. Создавайте новую тему, а не отписывайтесь в чужих.
2. Если честно, из вашего задания мало что понял, более подробно и полно задание напишите.
Ваш модератор.