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

Сформировать массив B, k-ый элемент которого равен количеству нулевых элементов k-го столбца матрицы - Turbo Pascal

02.02.2015, 18:11. Просмотров 385. Ответов 1
Метки нет (Все метки)

Для произвольной матрицы А(M,N) сформировать одномерный массив B, k-ый элемент которого равен количеству нулевых элементов k-го столбца матрицы А, используя процедуру. Вывести на экран номера столбцов, не содержащих нулевых элементов.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2015, 18:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Сформировать массив B, k-ый элемент которого равен количеству нулевых элементов k-го столбца матрицы (Turbo Pascal):

Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца
Сформировать одномерный массив, каждый элемент которого равен количеству...

Сформировать массив, каждый элемент которого равен количеству отрицательных элементов соответствующего столбца
Дан двухмерный массив. Сформулировать одномерный массив, каждый элемент...

Сформировать массив, каждый элемент которого равен количеству элементов соответствующей строки
Дан двумерный массив размер 4*6,заполненный целыми числами с клавиатуры....

Сформировать массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3 или 5
Исходная матрица должна быть введена на экран в виде таблицы. Все...

Создать массив, каждый элемент которого равен количеству элементов соответствующей строки матрицы, больших X
Дан двумерный массив размером 5х6, заполненный целыми числами из [-34;45)....

Сформировать массив, каждый элемент которого равен произведению четных положительных элементов столбца
Дан двумерный массив размерностью 5*6, заполненный целыми числами с клавиатуры....

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,651
Записей в блоге: 1
03.02.2015, 08:55 #2
Лучший ответ Сообщение было отмечено Middler как решение

Решение

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
35
36
37
38
39
40
41
42
43
44
45
46
Const nmax=20;
Type matr=array[1..nmax,1..nmax] of integer;
     mas=array[1..nmax] of integer;
Var A:matr;
    B:mas;
    i,j,n,m:integer;
Procedure P(A:matr;m,n:integer;Var B:mas);
Var i,j:integer;
Begin
    For j:=1 to n do
    Begin
      B[j]:=0;
      For i:=1 to m do
       if A[i,j]=0 then inc(B[j]);
    End;
End;
Begin
    Repeat
     write('Введите M: ');
     readln(m);
    Until (0<m)and(m<=nmax);
    Repeat
     write('Введите N: ');
     readln(n);
    Until (0<n)and(n<=nmax);
    For i:=1 to m do
     For j:=1 to n do
      Begin
       write('Введите A[',i,',',j,']-ый элемент: ');
       readln(A[i,j]);
      End;
    For i:=1 to m do
    Begin
      For j:=1 to n do
       write(A[i,j]:5);
      writeln;
    End;
    P(A,m,n,B);
    writeln('Массив B');
    For i:=1 to n do
     write(B[i]:5);
    write('Номер столбцов не содержащих нулевые элементы:');
    For i:=1 to n do
     if B[i]=0 then write(i:5);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.02.2015, 08:55
Привет! Вот еще темы с решениями:

Сформировать массив, каждый элемент которого равен сумме отрицательных элементов соответствующего столбца
Сформировать одномерный массив, каждый элемент которого равен сумме...

Сформировать одномерный массив, каждый элемент которого равен произведению четных положительных элементов соответствующего столбца
решите пожалуйста 1) Дан двумерный массив с размерность 5*6, заполненный...

Построить вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы
program Project1; {$APPTYPE CONSOLE} uses SysUtils, Windows; const...

Постройте вектор, каждый элемент которого равен наибольшему количеству равных элементов в соответствующей строке матрицы
Помогите пожалуйста с задачей. Заранее благодарна) 17. Пусть дана матрица А(n...


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

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

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