Среди нечетных столбцов матрицы найти столбец с максимальной суммой модулей элементов.

@Markiz De Gener · Регистрация: 04.11.2016

Составить программу на Паскале. Среди нечетных столбцов заданной целочисленной матрицы 5*4 найти столбец с максимальной суммой модулей элементов.

@Puporev · 05.11.2016, 10:34

Pascal

uses crt;
const m=5;
      n=4;
var a:array[1..m,1..n] of integer;
    i,j,max,jmax,sum:integer;
begin
clrscr;
randomize;
writeln('Матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
max:=0;
jmax:=0;
j:=1;
while j<4 do
 begin
  sum:=0;
  for i:=1 to 5 do
  sum:=sum+abs(a[i,j]);
  if sum>max then
   begin
    max:=sum;
    jmax:=j;
   end;
  j:=j+2;
 end;
write('Нечетный столбец с маrсимальной суммой модулей=',jmax);
readln
end.

@Markiz De Gener 0 / 0 / 0 Регистрация: 04.11.2016 Сообщений: 10
		1
	Среди нечетных столбцов матрицы найти столбец с максимальной суммой модулей элементов. 04.11.2016, 21:33. Показов 1446. Ответов 1 Метки нет (Все метки) Составить программу на Паскале. Среди нечетных столбцов заданной целочисленной матрицы 5*4 найти столбец с максимальной суммой модулей элементов. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Среди нечетных столбцов матрицы найти столбец с максимальной суммой модулей элементов.

Решение