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

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

29.05.2014, 17:08. Просмотров 239. Ответов 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.

http://www.cyberforum.ru/pascal/thread70600.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 17:08
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Двумернй массив. Надо найти произведение отрицательный элементов побочной дианогали (Turbo Pascal):

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

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

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

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

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

2
Puporev
Модератор
54135 / 41768 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
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 / 3
Регистрация: 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