Дан массив размерностью n*m. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца

@Artykk · Регистрация: 19.10.2013

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

Дан массив размерностью n*m. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца.

@CodeR · 02.11.2013, 12:22

Pascal

Var A:array[1..20,1..20] of real;
    i,j,n,m:byte;
    min:real;
Begin
    
    write('n,m: ');readln(n,m);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2);
      End;
      writeln;
    End;
    For j:=1 to m do
    Begin
      min:=A[1,j];
      For i:=2 to n do
       if abs(A[i,j])<abs(min) then min:=A[i,j];
      For i:=1 to n do
       if A[i,j]<>0 then A[i,j]:=A[i,j]/min;
      writeln('В ',j,' столбце min = ',min:0:2);
    End;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:6:2);
      writeln;
    End;
    readln;
End.

@Artykk 2 / 0 / 0 Регистрация: 19.10.2013 Сообщений: 43
		1
	Дан массив размерностью nm. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца 02.11.2013, 01:12. Показов* 1328. Ответов 1 Метки нет (Все метки) Дан массив размерностью n*m. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца. 0

Опции темы

Дан массив размерностью n*m. Поделить все элементы каждого столбца на наименьший по модулю элемент этого столбца

Решение