Двумерный массив. Заполнить одномерный массив суммой значений элементов строк

@Кристина* · Регистрация: 01.10.2009

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

Помогите, пожалуйста!=(
Дан двумерный массив. Заполнить одномерный массив суммой значений элементов строк, вывести полученную информацию на экран и номера строк, в которых сумма максимальная.
(решить с помощью Pascal ABC)...

@Sedlex · 07.04.2013, 01:57

Pascal

{1. Дан двумерный массив. Заполнить одномерный массив суммой значений элементов строк, вывести полученную информацию на экран и номера строк, в которых сумма максимальная.}
program up;
var
  matr:array [1..10, 1..10] of integer;
  arr: array [1..10] of integer;
  i,j,k,n,max,max_str:integer;
  begin
  max:=-maxint;
  readln(n);
  k:=0;
  for i:= 1 to n do
    for j:= 1 to n do
    read(matr[i,j]);
    for i:= 1 to n do begin
    for j:= 1 to n do
    k:=k+matr[i,j];
    arr[i]:=k;
    k:=0;
    end;
    for i:= 1 to n do
      if arr[i] > max then begin
        max:=arr[i];
        max_str:= i;
        end;
    writeln(max_str);
    end.

@Кристина* 0 / 0 / 0 Регистрация: 01.10.2009 Сообщений: 5
		1
	Двумерный массив. Заполнить одномерный массив суммой значений элементов строк 15.10.2009, 21:15. Показов 2395. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста!=( Дан двумерный массив. Заполнить одномерный массив суммой значений элементов строк, вывести полученную информацию на экран и номера строк, в которых сумма максимальная. (решить с помощью Pascal ABC)... 0

	07.04.2013, 01:57

Опции темы

Двумерный массив. Заполнить одномерный массив суммой значений элементов строк

Решение