Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
spr1nt
0 / 0 / 2
Регистрация: 27.10.2014
Сообщений: 38
#1

Найти произведение отрицательных элементов матрицы в заданной области - Pascal ABC

26.11.2014, 01:35. Просмотров 402. Ответов 1
Метки нет (Все метки)


http://www.cyberforum.ru/pascalabc/thread138698.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2014, 01:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение отрицательных элементов матрицы в заданной области (Pascal ABC):

Найти произведение отрицательных элементов матрицы
1 Задание. Найти произведение отрицательных элементов матрицы. Закрасить...

Найти произведение отрицательных элементов матрицы
Задание 1. Найти произведение отрицательных элементов матрицы. Закрасить...

Найти произведение отрицательных элементов столбца матрицы
Задать массив N*M заполненный дробными числами с 1 знаком после запятой. Найти...

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

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

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
26.11.2014, 18:09 #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
uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
    i,j:integer;
    s:longint;
begin
    clrscr;
    textcolor(green);
    randomize;
    s:=1;
    for i:=1 to n do
     begin
      for j:=1 to n do
       begin
        a[i,j]:=-10+random(21);
        if ((i<j)and(i>n-j+1))or((i>j)and(i<n-j+1)) 
         then
          begin
           textcolor(yellow);
           if a[i,j]<0 then s:=s*a[i,j]
          end; 
        write(a[i,j]:4);
        textcolor(green);
       end;
      writeln
     end;
    textcolor(yellow);
    writeln('произведение отрицательных в выделенной области = ',s) 
end.
если диагонали входят в область - поменяйте все строгие неравенства в 15 строке на нестрогие
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2014, 18:09
Привет! Вот еще темы с решениями:

Найти произведение отрицательных элементов в каждом столбце матрицы
Помогите!) Дана вещественная матрица С(5,4). Найти произведение...

С помощью функции найти произведение отрицательных элементов матрицы
Задан матрицы С, В, А размерности (5х5). Составить схему алгоритма и...

Найти: произведение отрицательных элементов матрицы, максимальный и минимальный элементы
Посчитать произведение всех отрицательных элементов матрицы. Найти...

Найти количество положительных сумму и произведение отрицательных элементов матрицы
матрица. найти количество положительных сумму и произведение отрицательных


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

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

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