VPF::Как найти сумму элементов строки матрицы

koder

Дата 22.12.2006, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 181
Регистрация: 30.4.2005
Где: Moscow

Репутация: нет
Всего: 2

сабж?

--------------------

THE TRUTH IS OUT THERE

Rodman

Дата 22.12.2006, 10:20 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

koder, правила почитай, а вооще тебе Центр помощи

Код


Uses crt;
var a:array[1..10,1..10] of integer;
      k,i,j,n,max:integer;
BEGIN
clrscr;
randomize;
n:=10;
max := -5555555;
for i:=1 to n do
 for j:=1 to n do
  begin
   a[i,j]:=random(9)+1;
   if(a[i,j]>max)then
   begin
      max:=a[i,j];
       k:=j;
   end;
  end;
max:=0;
for i:=1 to n do 
    max:=max+a[k,i];
writeln('Sum = ',max);
readln;
end.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

Zero

Дата 22.12.2006, 10:32 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24

Цитата(Rodman @ 22.12.2006, 10:20

)

k:=j;

Rodman, ты тут чуть-чуть не расчитал... Надо сохранять не j а i, т.к. речь про строки идёт а не про столбцы.

Rodman

Дата 22.12.2006, 11:31 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122

Zero, согласен... Пропустил...

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »