Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
olegbesan
2 / 2 / 1
Регистрация: 08.06.2012
Сообщений: 44
1

Определить количество строк, не содержащих ни одного нулевого элемента

13.06.2012, 00:19. Просмотров 1045. Ответов 1
Метки нет (Все метки)

Дана целочисленная прямоугольная матрица. Определить количество строк, не содержащих ни одного нулевого элемента
Разработать процедуру либо функцию
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 00:19
Ответы с готовыми решениями:

Определить количество строк, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить: количество строк, не...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить: 1) количество строк, не...

Определить количество столбцов, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не...

Определить количество столбцов, не содержащих ни одного нулевого элемента
Вроде все правильно, но не считает колличество столбцов. Не подскажите где...

Матрица. Определить количество столбцов, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить количество столбцов, не...

1
ermolay
3430 / 2369 / 2134
Регистрация: 04.12.2011
Сообщений: 3,965
13.06.2012, 00:33 2
Лучший ответ Сообщение было отмечено olegbesan как решение

Решение

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
47
const
  nmax=20;
type
  tArr=array[1..nmax,1..nmax] of integer;
  
procedure init(n1,m1: integer; var ar: tArr);
var i,j: integer;
begin
  writeln('Массив:');
  for i:=1 to n1 do
  begin
    for j:=1 to m1 do
    begin
      ar[i,j]:=random(10);
      write(ar[i,j]:4);
    end;
    writeln;
  end;
  writeln;
end;
 
procedure null(n1,m1: integer; var ar: tArr);
var i,j,k: integer;
    boo: boolean;
begin
  for i:=1 to n1 do
  begin
    boo:=false;
    for j:=1 to m1 do
    begin
      if ar[i,j]=0 then boo:=true;
    end;
    if boo=false then inc(k);
  end;
  writeln('В массиве ',k,' строк без нулей');
end;
 
var
  a: tArr;
  n,m: integer;
begin
  write('Введите размеры массива n,m: ');
  readln(n,m);
  init(n,m,a);
  null(n,m,a);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2012, 00:33

Определить кол-во строк, не содержащих ни одного отрицательного элемента
Помогите, пожалуйста решить, запутался сильно :D Дана целочисленная...

Определить количество строк, не содержащих ни одного нулевого элемента
Дана целочисленная прямоугольная матрица. Определить: 1)количество строк, не...

Определить количество строк матрицы, не содержащих ни одного нулевого элемента
Задание: Целочисленная прямоугольная матрица заполняется с помощью генератора...


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

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

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