Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Александра_
1 / 1 / 0
Регистрация: 26.05.2014
Сообщений: 20
#1

Двумернй массив. Надо найти произведение отрицательный элементов побочной дианогали

29.05.2014, 17:08. Просмотров 243. Ответов 2
Метки нет (Все метки)

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
program Alex;
uses crt;
var B: array [1..6,1..6] of integer;
    i, j, P: integer;
begin
ClrScr;
randomize;
For i:=1 to 6 do begin
For j:=1 to 6 do begin
B[i,j]:=random(130)-65;
write(B[i,j]:4);
end;
writeln;
end;
writeln;
j:=6;
P:=0;
for i:=1 to 6 do begin
if (i=j) and (B[i,j]<0) then begin
P:=P+B[i,j];
j:=j-1;
end;
end;
writeln('P=' , P);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 17:08
Ответы с готовыми решениями:

Найти произведение положительных элементов среди элементов расоложенных выше побочной диагонали матрицы B
Помогите составить прогу в паскале для матрицы (4;4) а)найти минимальный элемент во втором...

Двухмерный массив. Подсчитать произведение элементов кратных 4, состоящих на побочной диагонали
3. Двухмерный массив задан последовательностью случайных чисел от 0 до M. Размерность массива...

Найти произведение элементов главной / побочной диагонали матрицы
Задана квадратная матрица 4х4. Найти р1 и р2, р1-произведения элементов главной диагонали,...

Найти произведение элементов побочной диагонали квадратной матрицы.
1)Найдите произведение элементов побочной диагонали квадратной матрицы. 2)Сумма элементов пятого...

Найти произведение элементов, стоящих ниже побочной диагонали матрицы
Найти произведение элементов стоящих ниже побочной диагонали матрицы А

2
Puporev
Модератор
54343 / 41938 / 28975
Регистрация: 18.05.2008
Сообщений: 98,775
29.05.2014, 17:26 #2
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
program Alex;
uses crt;
const n=6;
var B: array [1..n,1..n] of integer;
    i, j, k: integer;
    P:real;
begin
ClrScr;
randomize;
P:=1;
k:=0;
For i:=1 to n do
 begin
  For j:=1 to n do
   begin
    B[i,j]:=-65+random(130);{нафига такие большие числа?}
    write(B[i,j]:4);
    if(j=n-i+1)and (B[i,j]<0) then
     begin
      k:=1;
      P:=P*B[i,j];
     end;
   end;
  writeln;
 end;
if k=0 then writeln('P=0')
else writeln('P=' , P:0:0);
readln
end.
0
Александра_
1 / 1 / 0
Регистрация: 26.05.2014
Сообщений: 20
29.05.2014, 17:29  [ТС] #3
Спасибо) Такое задание
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 17:29

Найти произведение всех элементов, расположенных на побочной диагонали матрицы
Найти произведение всех элементов, расположенных на побочной диагонали и выше ее матрицы размером...

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

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


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

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

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