Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки

@моха · Регистрация: 29.01.2011

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

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

@sano32 · 28.02.2011, 14:20

Pascal

uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,m,n,max:integer;
begin
clrscr;
writeln('vvedite razmernost massiva');
readln(n,m);
randomize;
for i:=1 to n do
    begin
         max:=0;
         for j:=1 to m do
             begin
                  a[i,j]:=random(10)-5;
                  write(a[i,j],' ');
                  if abs(a[i,j])>max then max:=abs(a[i,j]);
             end;writeln;
         b[i]:=max;
    end;writeln;
writeln('preobrazovannii massiv');
for i:=1 to n do
    begin
         for j:=1 to m do
             begin
                  write(a[i,j]/b[i]:2:3,' ');
             end;writeln;
    end;
readln;
end.

@моха 0 / 0 / 0 Регистрация: 29.01.2011 Сообщений: 15
		1
	Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки 28.02.2011, 13:57. Показов 1356. Ответов 1 Метки нет (Все метки) Дан массив размерностью nхm. Поделить все элементы каждой строки на наибольший по модулю элемент этой строки. 0

Опции темы

Поделить все элементы каждой строки массива на наибольший по модулю элемент этой строки

Решение