Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/21: Рейтинг темы: голосов - 21, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 16.11.2011
Сообщений: 16
1

Составьте программу вычисления произведения элементов матрицы B(N,N), кратных 5.

16.11.2011, 11:46. Просмотров 3862. Ответов 1
Метки нет (Все метки)


Составьте программу вычисления произведения элементов матрицы B(N,N), кратных 5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.11.2011, 11:46
Ответы с готовыми решениями:

Составьте программу вычисления произведения элементов, больших заданного числа Т, одномерного массива
Составьте программу вычисления произведения элементов, больших заданного числа Т, одномерного...

Составьте программу вычисления произведения нечетных элементов одномерного массива
Составьте программу вычисления произведения нечетных элементов одномерного массива A(N), заполнив...

Составьте блок-схему алгоритма и программу вычисления в массиве A(N) произведения положительных элементов
Составьте блок-схему алгоритма и программу вычисления в массиве A(N) произведения положительных...

Составьте программу вычисления произведения отрицательных элементов матрицы B(N, N)
Составьте программу вычисления произведения отрицательных элементов матрицы B(N, N)

1
Goldeeeeeeen !
243 / 235 / 186
Регистрация: 15.10.2011
Сообщений: 457
16.11.2011, 17:42 2
Лучший ответ Сообщение было отмечено xsk как решение

Решение

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
CONST N=3;
VAR B:ARRAY[1..N,1..N] OF INTEGER;
    P,I,J:INTEGER;
BEGIN
 WRITELN('ВВЕДИ ',N*N,' ЧИСЕЛ-ЭЛЕМЕНТОВ МАТРИЦЫ');
 FOR I:=1 TO N DO
 FOR J:=1 TO N DO
 BEGIN
 WRITE('B[',I,',',J,']=');
 READ(B[I,J]);
 END;
 WRITELN(' ':10,'ИСХОДНАЯ МАТРИЦА ');
 
  FOR I:=1 TO N DO
  BEGIN
   FOR J:=1 TO N DO
   WRITE(B[I,J]:4);  WRITELN;
   END;
 
  P:=1;
  FOR I:=1 TO N DO
  BEGIN
  FOR J:=1 TO N DO
    IF B[I,J] MOD 5=0 THEN P:=P*B[I,J];
  END;
  WRITELN('ПРОИЗВЕДЕНИЕ ЭЛЕМЕНТОВ КРАТНЫХ 5 = ',P:4);
END.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.11.2011, 17:42

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Составьте программу вычисления произведения положительных элементов матрицы B(N, N)
:impossible:Составьте программу вычисления произведения положительных элементов матрицы B(N, N)

Составьте блок-схему алгоритма и программу вычисления в массиве A(N) произведения положительных элементов
Составьте блок-схему алгоритма и программу вычисления в массиве A(N) произведения положительных...

Составьте программу вычисления в массиве произведения положительных элементов
4. Составьте программу вычисления в массиве произведения положительных элементов. Помогите...

Составьте программу вычисления произведения элементов матрицы B(N,N), кратных 5.
Составьте программу вычисления произведения элементов матрицы B(N,N), кратных 5.


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

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

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