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

Определить, делится ли произведение на любой из элементов матрицы без остатка - Pascal ABC

17.10.2015, 17:33. Просмотров 206. Ответов 1
Метки нет (Все метки)

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


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
var m,c, n, i, j,p : integer;
s:real;
a:array[1..10,1..10]of integer;
b:array[1..10,1..10]of integer;
begin
write('Введите число строк: ');
readln(m);
write('Введите число столбцов: ');
readln(n);
for i:= 1 to m do
for j:= 1 to n do
a[i, j]:= random(51)-random(51);
writeln('** Исходная матрица **');
for i:= 1 to m do
begin
for j:= 1 to n do
write(a[i, j]:4);
writeln;
end;
p:=1;
for j:=1 to n do
for i:=1 to m-j+1 do
p:=p*a[i,j];
writeln('Произведение = ',p);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.10.2015, 17:33
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, делится ли произведение на любой из элементов матрицы без остатка (Pascal ABC):

Определить в массиве произведение элементов чьё значение без остатка делится на 2 и не делится на 3
Уважаемые, помогите пожалуйста закончить или исправить задачу: 1. Ввести одн....

Определить для числа ближайшее (сверху), которое делится на 5 и 7 без остатка
Привет, сново я =) Задали вторую задачку, скозали лёгкая, только вот не могу...

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

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

Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3
Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести...

Если Х делится на Y или Y делится на Х без остатка, то вывести TRUE, иначе вывести FALSE.
1) «Делим нацело». Даны 2 целых числа: X и Y. Если Х делится на Y или Y ...

1
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,329
17.10.2015, 17:46 #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
30
31
32
33
34
var n,i,j,p,k : integer;
    a:array[1..10,1..10]of integer;
begin
write('Введите размер матрицы n=');
readln(n);
for i:= 1 to n do
for j:= 1 to n do
a[i, j]:= random(51)-random(51);
writeln('** Исходная матрица **');
p:=1;
for i:= 1 to n do
 begin
  for j:= 1 to n do
   begin
    a[i,j]:=1+random(5);
    write(a[i,j]:4);
    if j<=n-i+1 then p:=p*a[i,j];
   end;
  writeln;
 end;
writeln('Произведение на побочной диагонали и выше ее=',p);
k:=0;
i:=1;
while(i<=n)and(k=0) do
 begin
  j:=1;
  while(j<=n)and(k=0)do
  if p mod a[i,j]<>0 then k:=1
  else inc(j);
  if k=0 then inc(i);
 end;
if k=0 then write('Произведение делится нацело на все элементы матрицы')
else write('Произведение не делится нацело на все элементы матрицы')
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.10.2015, 17:46
Привет! Вот еще темы с решениями:

Введенное число делится без остатка на 3?
Друзья помогите пожалуйста с задачой: Написать программу проверяющую, верно ли...

Найти количество натуральных четырехзначных чисел каждое из которых делится на 2 и на 3 без остатка
Найти количество натуральных четырехзначных чисел каждое из которых делится на...

Для натурального числа n посчитать сумму всех чисел, на которые n делится без остатка
Как и многие другие девочки, Маша любит разные гадания. Некоторое время назад...

Определить сумму квадратов индексов элементов массива, делящихся на три без остатка
Ввести одномерный массив A из 14 элементов. Определить сумму квадратов...


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

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

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