Матрица (определить сумму положительных элементов и заменить на значение большей из полученных сумм))

@QBasic · Регистрация: 18.01.2010

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

Задание:
В матрице определить суммы положительных элементов в чётных столбцах и заменить поледние элементы в этих столбцах на значение большей из полученных сумм.
Помогите пожалуйста с подробным решением данной задачи!Заранее благодарен!

@skif3d · 11.02.2010, 06:42

Pascal

uses crt;
const n = 4;
type mas = array [1..n, 1..n] of integer;
var a: mas;
    max, sum, i,j, n2: integer;
begin
  clrscr;
  randomize;
  {заполняем матрицу и вывлдим на экран}
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j] := 100+random(20);
      write(a[i,j], '  ');
    end;
    writeln('');
  end;
  {ищем максимальнцю сумму}
  max := -maxint;
  n2 := trunc(n/2);
  for j:=1 to n2 do
  begin
    sum := 0;
    for i:=1 to n do
      sum := sum + a[i, j*2];
    if (sum > max) then max := sum;
  end;
  {заменяем последний элемент в четном столбце}
  for i:=1 to n2 do
    a[n, i*2] := max;
  {выводим матрицу}
  writeln('');writeln('x2');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      write(a[i,j], '  ');
    end;
    writeln('');
  end;
 
 
  repeat until keypressed;
end.

@QBasic · 24.03.2010, 01:57 **[ТС]**

А как сделать тоже самое,только без рандомных чисел,а чтобы массив вводился с клавиатуры??

@skif3d · 26.03.2010, 21:21

Pascal

  clrscr;
  {заполняем матрицу и выводим на экран}
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin      
      write('  a[', i, ',', j, ']= ');
      read(a[i,j]);
    end;
    writeln('');
  end;
  {ищем максимальнцю сумму}

мне кажется как-то вот так.

@QBasic 94 / 1 / 0 Регистрация: 18.01.2010 Сообщений: 63
		1
	Матрица (определить сумму положительных элементов и заменить на значение большей из полученных сумм)) 11.02.2010, 03:42. Показов 516. Ответов 3 Метки нет (Все метки) Задание: В матрице определить суммы положительных элементов в чётных столбцах и заменить поледние элементы в этих столбцах на значение большей из полученных сумм. Помогите пожалуйста с подробным решением данной задачи!Заранее благодарен! 0

@QBasic 94 / 1 / 0 Регистрация: 18.01.2010 Сообщений: 63
	24.03.2010, 01:57 [ТС]	3
	А как сделать тоже самое,только без рандомных чисел,а чтобы массив вводился с клавиатуры?? 0

	26.03.2010, 21:21