В данном двумерном массиве найдите сумму элементов у которых номер строки и столбца совпадает

@Nikki1919 · Регистрация: 13.01.2020

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

Ребят напишите код или объясните пожалуйста как правильно написать, буду писать на Лазарусе
В данном двумерном массиве найдите сумму элементов у которых номер строки и столбца совпадает

@qwertehok · 13.01.2020, 22:09

напиши такой же код в делфи и попробуй запустить в Лазарусе

@Nikki1919 · 13.01.2020, 22:12 **[ТС]**

Если честно я без понятия как правильно написать

@qwertehok · 13.01.2020, 22:21

совсем не знаешь что такое массив или код есть, но не правильный?

@Nikki1919 · 13.01.2020, 22:31 **[ТС]**

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

совсем не знаешь что такое массив или код есть, но не правильный?

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
Const n=4; m=5; Max_value=99; 
Type myarray=array[1..n, 1..m] of integer; 
Var i,j: byte; mas: myarray; 
 
Procedure Create(n,m:integer; Var B: myarray); {Создание массива} 
 Var i,j: integer; 
Begin 
 Randomize; 
 For i:=1 To n Do 
 For j:=1 To m Do B[i,j]:=random(Max_value)+1; 
End; 
 
Procedure Print(n,m: integer; B: myarray); {Печать массива из n*m элементов} 
 Var i,j: integer; 
Begin 
 For i:=1 To n Do 
 Begin 
 For j:=1 To m Do 
 Write(B[i,j]: 4); 
 Writeln 
 End; 
End; 
Begin 
 Create(n,m,mas); 
 Writeln('Созданный массив'); 
 Print(n,m,mas); 
 Readln 
End.

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

@qwertehok · 13.01.2020, 22:39

в процедуре Print в цикле перебора строк и столбцов нужно сравнить i и j. если равно, то сложить.

но если ты нарисуешь пример на бумаге и заштрихуешь клетки по своему заданию, то увидишь закономерность, которая упростит тебе весь код

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере 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-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии 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 позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@Nikki1919 0 / 0 / 0 Регистрация: 13.01.2020 Сообщений: 4

	В данном двумерном массиве найдите сумму элементов у которых номер строки и столбца совпадает 13.01.2020, 22:06. Показов 1392. Ответов 5 Метки delphi 10, LazarusPackageIntf (Все метки) Ребят напишите код или объясните пожалуйста как правильно написать, буду писать на Лазарусе В данном двумерном массиве найдите сумму элементов у которых номер строки и столбца совпадает 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,169 Записей в блоге: 3
	13.01.2020, 22:09
	напиши такой же код в делфи и попробуй запустить в Лазарусе 0

@Nikki1919 0 / 0 / 0 Регистрация: 13.01.2020 Сообщений: 4
	13.01.2020, 22:12 [ТС]
	Если честно я без понятия как правильно написать 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,169 Записей в блоге: 3
	13.01.2020, 22:21
	совсем не знаешь что такое массив или код есть, но не правильный? 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,169 Записей в блоге: 3
	13.01.2020, 22:39
	в процедуре Print в цикле перебора строк и столбцов нужно сравнить i и j. если равно, то сложить. но если ты нарисуешь пример на бумаге и заштрихуешь клетки по своему заданию, то увидишь закономерность, которая упростит тебе весь код 0