Массивы

@BOLT · Регистрация: 30.09.2009

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

Помогите наисать прогу...буду весьм благодарен...

Дан двухмерный массив. Найти:
строку с максимальной суммой элементов.

@mamedovvms · 13.11.2009, 17:05

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
max:=0;
str:=1;
for j:=1 to n do
 max:=max+a[1,j];
 
for i:=2 to n do
 begin
 sum:=0;
   for j:=1 to n do
   sum:=sum+a[i,j];
   if sum>max then
    begin
      str:=i;
      max:=sum;
    end;
 end;
 
writeln('Nomer stroki ',str,' Summa ',max );

@BOLT · 13.11.2009, 17:08 **[ТС]**

где написано номер строки сумма так и писать?

@Давид · 13.11.2009, 17:12

BOLT, Пожалуйста!Проверяйте

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Program minimum;
Uses crt;
 var b:array [1..100,1..100] of integer;
     a:array [1..100] of integer;
     i,j,n,s,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=1 to n do begin s:=0;
                      for j:=1 to n do
                      s:=s+b[i,j];
                      a[i]:=s;
                      end;
Writeln (' Summa el-ov v kazhdoi stroke ');
for i:=1 to n do
write (a[i]:4);
writeln;
Write ('Homer stroki s bolshei summoi = ');
max:=a[1];
For i:=1 to n do
  if a[i]>max then write(i,' ');
Readln
end.

@BOLT · 13.11.2009, 17:15 **[ТС]**

спс тока мне надо max а не min

@Давид · 13.11.2009, 17:16

BOLT, Исправлено!проверьте...там теперь МАХ

@BOLT · 13.11.2009, 18:21 **[ТС]**

спс огромное...ща проверю на паскале

Добавлено через 41 минуту
блин она работает но не правильно....

Добавлено через 22 минуты
блин оба варианты не пашут как надо...

@Puporev · 13.11.2009, 18:26

BOLT, Это у тебя руки и мозг неправильно пашут.

@BOLT · 13.11.2009, 18:28 **[ТС]**

пичем тут руки и мозг?? если 1я прога вообще все по нулям выдает, а втора неправильно прощитывает

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28

	Массивы 13.11.2009, 16:57. Показов 556. Ответов 8 Метки нет (Все метки) Помогите наисать прогу...буду весьм благодарен... Дан двухмерный массив. Найти: строку с максимальной суммой элементов. 0

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28
	13.11.2009, 17:08 [ТС]
	где написано номер строки сумма так и писать? 0

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28
	13.11.2009, 17:15 [ТС]
	спс тока мне надо max а не min 0

@Давид Программист 1С 859 / 647 / 187 Регистрация: 03.03.2009 Сообщений: 1,154
	13.11.2009, 17:16
	BOLT, Исправлено!проверьте...там теперь МАХ 0

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28
	13.11.2009, 18:21 [ТС]
	спс огромное...ща проверю на паскале Добавлено через 41 минуту блин она работает но не правильно.... Добавлено через 22 минуты блин оба варианты не пашут как надо... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.11.2009, 18:26
	BOLT, Это у тебя руки и мозг неправильно пашут. 0

@BOLT 0 / 0 / 0 Регистрация: 30.09.2009 Сообщений: 28
	13.11.2009, 18:28 [ТС]
	пичем тут руки и мозг?? если 1я прога вообще все по нулям выдает, а втора неправильно прощитывает 0