С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
funnylesha
0 / 0 / 0
Регистрация: 23.01.2010
Сообщений: 23
1

Определить произведение сумм индексов двух максимальных елементов не главной диагонали

25.01.2010, 12:06. Просмотров 701. Ответов 4
Метки нет (Все метки)

в двух мерном массиве определить произведение суммы индексов двух максимальных елементов не главной диагонали.

решите ету задачку пожалуста
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.01.2010, 12:06
Ответы с готовыми решениями:

Произведение всех отрицательных елементов главной диагонали
Помогите кто может на завтра нужно в визуал бейсике задачу зделать!!!!!! в...

Определить: максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы
Дана целочисленная квадратная матрица. Определить: максимум среди сумм...

Определить: максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы
Дана целочисленная квадратная матрица. Определить: максимум среди сумм...

Дана целочисленная матрица. Определить максимум среди сумм элементов диагоналей, параллельных главной диагонали матрицы.
ребят,нужна помощь...завтра экзамен..выручайте

Найти произведение главной диагонали и суммы побочной диагонали матрицы
Дана матрица действительных чисел M(n,m). Найти произведение главной диагонали...

4
Puporev
Модератор
55507 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,754
25.01.2010, 12:10 2
произведение суммы индексов
Это как? Может произведение сумм индексов, т.е. p:=(i1+j1)*(i2+j2)?
1
funnylesha
0 / 0 / 0
Регистрация: 23.01.2010
Сообщений: 23
25.01.2010, 12:23  [ТС] 3
да
0
Puporev
Модератор
55507 / 42595 / 29444
Регистрация: 18.05.2008
Сообщений: 100,754
25.01.2010, 12:31 4
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
42
43
44
45
46
uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,k,imx,i1,i2:byte;
    mn,mx1,mx2:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
mn:=a[1,1];//найдем минимальный
for i:=1 to n do
if a[i,i]<mn then mn:=a[i,i];
mx1:=a[1,1];i1:=1;//найдем первый максимальный
for i:=1 to n do
if a[i,i]>mx1 then
 begin
  mx1:=a[i,i];
  i1:=i;
 end;
a[i1,i1]:=mn;//на это место запишем минимальный
mx2:=a[1,1];i2:=1;//найдем второй максимальный
for i:=1 to n do
if a[i,i]>mx2 then
 begin
  mx2:=a[i,i];
  i2:=i;
 end;
writeln('Первый максимальный=',mx1,' сумма его идексов=',2*i1);
writeln('Второй максимальный=',mx2,' сумма его идексов=',2*i2);
write('Произведение сумм=',4*i1*i2);
readln
end.
1
funnylesha
0 / 0 / 0
Регистрация: 23.01.2010
Сообщений: 23
25.01.2010, 12:44  [ТС] 5
спасибо
0
25.01.2010, 12:44
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.01.2010, 12:44

В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали
В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали,...

определить произведение нечетных индексов
Как для массива определить произведение элементов, имеющих нечетные индексы?;)

Скалярное произведение главной диагонали матрицы
Данная квардатнаяматрица а размерностью m. Компонентами вектора X взять...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru