Дан действительный массив размерностью n*m, в которой не все элементы равны нулю.
Опубликовано 15 Май 2010 в 15:36 Автор: admin
Экспедиторские услуги в Москве: украина экспедиторские услуги. Реклама в интернете, низкая цена.1) вложенным циклом пройтись по массиву и выбрать наибольший массив по модулю… 2) вложенным циклом пройтись и разделить каждый элемент массива на полученное число и записать результат соответствующим значениям нового массива…
a,b :array[1..10][1..10] of real; max := abs(a[1,1]); for i:=1 to n do for j:=1 to m do if abs(a[ i , j ]) > max then max := abs(a[i , j ]); for i:=1 to n do for j:=1 to m do if a[ i , j ] <> 0 then b[ i , j ] := a[ i , j ] / max; внес изменения подсказал Кирилл Сабитов.