Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
newnic
1 / 1 / 1
Регистрация: 21.12.2010
Сообщений: 9
#1

Найти произведение элементов К-той строки матрицы значения которых лежат в диапазоне от 1 до 9 - Delphi

23.05.2015, 14:41. Просмотров 279. Ответов 0
Метки нет (Все метки)

Дана матрица. Произведение элементов К-той строки значения которых лежат в диапазоне от 1 до 9.
не могу решить не как помогите.

Добавлено через 1 час 50 минут
program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

var
A: array[1..100,1..100] of integer;
i,j,m,n,s,k:integer;
begin
randomize;
write('4islo strok: ');readln(m);
write('4islo stalbcov:');readln(n);
write('nomer stroki:') ; readln(k);
s:=0;
for j:=1 to n do begin
for i:=1 to m do begin
a[i,j]:=random(30)-1;
write(a[i,j]:5);
if (a[i,k]>0) and (a[i,k]<9) then s:=s*a[i,k];
end;
writeln;
end;
writeln('S= ',s);
readln;
end.
ГДЕ ошибка
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.05.2015, 14:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти произведение элементов К-той строки матрицы значения которых лежат в диапазоне от 1 до 9 (Delphi):

Для массива найти произведение элементов, значения которых не лежат в пределах [2; 8] - Delphi
написать программу на языке delphi (pascal) Для массива с1,с2...с30 найти произведение элементов, значения которых не лежат в пределах

Определить в каждой строке матрицы число элементов, значения которых лежат в интервале [c, d] - Delphi
Помогите пожалуйста! :cry: Delphi: n = 4, m = 5 Определить в каждой строке матрицы A, число элементов, значения которых...

Найти количество элементов массива, значения которых лежат между средним арефметическим и средним геометрическим - Delphi
Найти количество элементов массива A=(A1,A2,.....An) значения которых лежат между средним арефметическим элементов массива B=(B1,B2,....Bn)...

Массивы: найти сумму положительных элементов, значения которых меньше 10, и вывести индексы элементов, значения которых кратны 3 и 5 - Delphi
Доброго Времени суток всем , помогите с программками 1. Дан одномерный массив C целых чисел, состоящий из 20 элементов, заполнить...

Найти сумму и произведение элементов K-й строки данной матрицы - Delphi
Помогите решить задачу, горим!!!!! Дана матрица размера M х N и целое число K (1 &lt; K &lt; M). Найти сум¬му и произведение элементов K-й...

Найти сумму и произведение элементов K-й строки данной матрицы - Delphi
3.1 Дана матрица размера MxN и целое число K (1 &lt; K &lt; M). Найти сумму и произведение элементов K-й строки данной матрицы. 3.7 Дана...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.05.2015, 14:41
Привет! Вот еще темы с ответами:

Найти произведение элементов строки матрицы, содержащие наибольший по модулю элемент - Delphi
В матрице размера 4х3, все элементы которые различны, найти произведение элементов строки, Содержащие наибольший по модулю элемент матрицы....

Найти произведение диагональных элементов матрицы, которые больше первого элемента соответствующей строки - Delphi
Дана матрица целых чисел (размеры и элементы вводит пользователь). Найти произведение диагональных элементов, которые больше первого...

Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали - Delphi
Найти среднее арифметическое элементов матрицы и сумму элементов тех строк матрицы, в которых отрицателен элемент главной диагонали.

Определить произведение элементов третьей строки матрицы - Delphi
Дан двухмерный массив. Определить произведение элементов третьей строки.


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

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

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