Найти номер столбца матрицы с максимальной суммой элементов

@alexberry · Регистрация: 09.02.2014

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

Помогите, пожалуйста, с задачей!

Ввести с клавиатуры целочисленную матрицу размера 4х4. Найти номер столбца с максимальной суммой элементов. Вывести результаты решения во внешний файл

@Darkan · 12.02.2014, 19:35

Ввод консольный, вывод в файл input.txt

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var a: array [0..4,1..4] of longint;
    i,j:integer;
    max:longint;
begin
  Assign(output,'output.txt'); Rewrite(output);
  fillchar(a,sizeof(a),0);
 
  for i:=1 to 4 do
    for j:=1 to 4 do begin
      read(a[i,j]); a[0,j]:=a[0,j]+a[i,j];
    end;
 
  max:=1;
  for i:=2 to 4 do
    if a[0,i]>a[0,max] then max:=i;
 
  writeln(max);
 
  Close(output);
end.

@alexberry · 13.02.2014, 11:22 **[ТС]**

Спасибо большое!

Новичок · 14.02.2014, 22:01

Сообщение от Darkan

вывод в файл input.txt

Вообще-то у вас в программе в output.txt .

@code-n'-help · 14.02.2014, 22:07

Darkan, А вот так программа будет работать вы забыли описать инпут

Новичок · 14.02.2014, 22:08

А input то по условию ничего не сказано - значит input в консоли.

@code-n'-help · 14.02.2014, 22:09

Мега извинения ! Там в 18 строке еще надо написать writeln(Input,max);

Добавлено через 33 секунды

Сообщение от Новичок

А input то по условию ничего не сказано - значит input в консоли.

Согласен для консоли всё намного проще

Новичок · 14.02.2014, 22:10

Сообщение от code-n'-help

Там в 18 строке еще надо написать writeln(Input,max);

Во первых

Pascal
1
Writeln(output,max)

, а во вторых для стандартных переменных input ,output можно не писать

Pascal
1
Writeln(input,...)

, т.е имя файла можно не указывать.

@code-n'-help · 14.02.2014, 22:14

Новичок
Это как можно не указывать? А куда он выведет?

Новичок · 14.02.2014, 22:17

В файлы. Вот пример решения A+B с файлами.

Pascal
1
2
3
4
5
6
7
8
var a, b : longint;
 
begin
  assign(input, 'input.txt'); reset(input);
  assign(output, 'output.txt'); rewrite(output);
  read(a, b);
  write(a + b);
end.

Добавлено через 50 секунд
Как и в операторе Read так и Write имя файловой переменной не указывается, так как эти файловые переменные стандартные.

@code-n'-help · 14.02.2014, 22:28

Сообщение от Новичок

В файлы. Вот пример решения A+B с файлами.
Добавлено через 50 секунд
Как и в операторе Read так и Write имя файловой переменной не указывается, так как эти файловые переменные стандартные.

Подожди а в какой среде ты работаешь? Я просто не понимаю она в никуда выведет и считает я в Делфи например и в Фри Паскаль!

Новичок · 15.02.2014, 01:25

Сообщение от code-n'-help

Подожди а в какой среде ты работаешь?

Работать должно везде. Ввод и вывод идет с файлов и имя файловой переменной не указывается, так как файловые переменные input и output -стандартные, т.е если будет

Pascal
1
2
3
4
5
6
7
8
var f,g:text;
begin
Assign(f,'in.txt');
Assign(g,'out.txt');
Reset(f);
Rewrite(g);
Read(a,b)//Уже не прокатит, не будет читать из файла
end.

@code-n'-help · 15.02.2014, 09:04

Сообщение от Новичок

Read(a,b)//Уже не прокатит, не будет читать из файла
[/PASCAL]

Вот и я о том

@Ромаха · 15.02.2014, 15:54

Файлы лучше закрывать.. А то они имеют привычку не дозаписывать..

Я просто не понимаю она в никуда выведет

Вы перенаправляете стандартный ввод\вывод..
Работает везде..

@Darkan · 15.02.2014, 16:06

Новичок, спасибо за указание на опечатку. В программе ввод консольный, вывод в файл, как и хотел ТС

@code-n'-help · 15.02.2014, 16:14

Сообщение от Darkan

Новичок, спасибо за указание на опечатку. В программе ввод консольный, вывод в файл, как и хотел ТС

Если вам надо консольный ввод я могу помочь

@Darkan · 15.02.2014, 17:31

code-n'-help, не совсем понял Ваше предложение. ТС попросил ввод с клавиатуры (т.е консольный ввод), я так и сделал

Новичок · 15.02.2014, 18:38

Сообщение от code-n'-help

Если вам надо консольный ввод я могу помочь

Действительно бред. А в программе что не в консоли ввод?

Сообщение от Ромаха

Файлы лучше закрывать.. А то они имеют привычку не дозаписывать..

Да,это вы правы. Но просто суть примера была - показать стандартные файловые переменные input,output.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@alexberry 0 / 0 / 0 Регистрация: 09.02.2014 Сообщений: 14

	Найти номер столбца матрицы с максимальной суммой элементов 12.02.2014, 19:15. Показов 2214. Ответов 17 Метки нет (Все метки) Помогите, пожалуйста, с задачей! Ввести с клавиатуры целочисленную матрицу размера 4х4. Найти номер столбца с максимальной суммой элементов. Вывести результаты решения во внешний файл 0

@alexberry 0 / 0 / 0 Регистрация: 09.02.2014 Сообщений: 14
	13.02.2014, 11:22 [ТС]
	Спасибо большое! 0

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	14.02.2014, 22:07
	Darkan, А вот так программа будет работать вы забыли описать инпут 1

Новичок 1682 / 1098 / 489 Регистрация: 17.07.2012 Сообщений: 5,360
	14.02.2014, 22:08
	А input то по условию ничего не сказано - значит input в консоли. 1

@code-n'-help Форумчанин Паскаля 77 / 90 / 55 Регистрация: 08.11.2013 Сообщений: 399 Записей в блоге: 2
	14.02.2014, 22:14
	Новичок Это как можно не указывать? А куда он выведет? 0

@Darkan 5 / 5 / 6 Регистрация: 12.02.2014 Сообщений: 37
	15.02.2014, 16:06
	Новичок, спасибо за указание на опечатку. В программе ввод консольный, вывод в файл, как и хотел ТС 0

@Darkan 5 / 5 / 6 Регистрация: 12.02.2014 Сообщений: 37
	15.02.2014, 17:31
	code-n'-help, не совсем понял Ваше предложение. ТС попросил ввод с клавиатуры (т.е консольный ввод), я так и сделал 0