Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
8 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 91

Найти сумму и количество положительных элементов, параллели побочной диагонали расположенной под диагональю

15.02.2014, 14:17. Показов 2545. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
14. Дан двумерный массив a, размером (nn)(или квадратная матрица а). Найти сумму и количество положительных элементов, параллели побочной диагонали расположенной под диагональю, расположенных ниже побочной диагонали. Затем каждый элемент побочной диагонали умножить на количество.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.02.2014, 14:17
Ответы с готовыми решениями:

Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю
в паскале: Дан двумерный массив a, размером (nхn). Упорядочить по возрастанию параллель побочной диагонали расположенной под диагональю.

Найти сумму элементов по периметру матрицы и под побочной диагональю
Дана квадратная матрица порядка N. Найти сумму элементов по периметру матрицы и под побочной диагональю. Помогите пожалуйста

Упорядочить по возрастанию параллель побочной диагонали массива, расположенной над диагональю
Помогите пожалуйства с задачей. Заранее спасибо. Дан двумерный массив a, размером (nn). Упорядочить по возрастанию параллель...

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
16.02.2014, 16:47
Лучший ответ Сообщение было отмечено miss_ как решение

Решение

Тогда уж и эту
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
38
39
40
41
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,s:integer;
begin
randomize;
repeat
write('Размер матрицы до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(15);
    write(a[i,j]:4);
   end;
  writeln;
 end;
k:=0;
s:=0;
for i:=2 to n do
for j:=2 to n do
if (j=n-i+2)and(a[i,j]>0) then
 begin
  k:=k+1;
  s:=s+a[i,j]
 end;
writeln('Количесиво=',k,' сумма=',s);
writeln('Изменение диагонали, ниже побочной');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j=n-i+2 then a[i,j]:=a[i,j]*k;
    write(a[i,j]:3);
   end;
  writeln
 end;
end.
1
8 / 0 / 0
Регистрация: 14.12.2013
Сообщений: 91
16.02.2014, 19:30  [ТС]
прям от души!благодарю!!)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
16.02.2014, 19:30
Помогаю со студенческими работами здесь

Найти минимальную сумму положительных элементов параллельно к побочной диагонали
program rus; var a:array of integer; i,j,min,s:integer; begin for i:=1 to 6 do begin for j:=1 to 6 do read (a); readln; ...

Вычислить сумму четных элементов матрицы, расположенных под побочной диагональю
Вычислить в массиве А(3,3) сумму четных элементов, расположенных под побочной диагональю. код Pascal

Написать подпрограмму деления суммы элементов квадратной матрицы над главной диагональю на сумму элементов под побочной.
задание))): написать универсальную для разл. наборов исходных данных подпрограмму деления суммы элементов квадратной матрицы над главной...

Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетн
Дана целочисленная матрица размерностью 18*2.Найти сумму элементов ниже побочной диагонали; количество нечетных положительны элементов. ...

Найти наибольшее значение из элементов, расположенных над и под побочной диагональю матрицы
Дана дейсвительная квадратная матрица порядка n*n. Найти наибольшее значение из элементов, расположенных над и под побоной диагональю....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
Программный отбор значений справочника
Maks 21.03.2026
Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru