Дан прямоугольный массив A(m, n). Получить линейный массив B(n)

@diimas · Регистрация: 13.12.2012

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

Дан прямоугольный массив А(m, n). Получить линейный массив В(n), в котором В(i) – max элемент i-ого столбца массива А(m, n). (i изменяется от 1 до n).

@CodeR · 13.12.2012, 15:00

Pascal

Var A:array[1..20,1..20] of integer;
    B:array[1..20] of integer;
    i,j,n,m:byte;
Begin
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random(31)-15;
        write(A[i,j]:4);
      End;
      writeln;
    End;
    writeln('Массив B');
    For j:=1 to m do
     Begin
       B[j]:=A[1,j];
       For i:=1 to n do
        if A[i,j]>B[j] then B[j]:=A[i,j];
       write(B[j]:4);
     End;
    readln;
End.

@diimas · 14.12.2012, 12:42 **[ТС]**

Спасибо огромное! То что нужно!

Комментарий модератора

Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

@diimas 0 / 0 / 0 Регистрация: 13.12.2012 Сообщений: 7
		1
	Дан прямоугольный массив A(m, n). Получить линейный массив B(n) 13.12.2012, 12:10. Показов 2375. Ответов 2 Метки нет (Все метки) Дан прямоугольный массив А(m, n). Получить линейный массив В(n), в котором В(i) – max элемент i-ого столбца массива А(m, n). (i изменяется от 1 до n). 0

	14.12.2012, 12:42

Дан прямоугольный массив A(m, n). Получить линейный массив B(n)

Решение