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

Найти в матрице количество строк, которые не содержат нулей (исправить ошибки)

08.01.2014, 22:47. Просмотров 256. Ответов 3
Метки нет (Все метки)

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
Program z_8;
uses crt;
const
n=4;
m=4;
type din= array [1..n,1..m] of integer;
var
a:^din;
i,j,k,l,max:integer;
begin
clrscr;
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a^[i,j]:=random(10);
write(a^[i,j]:2);
end;
writeln;
end;
k:=0;
for i:= 1 to n do
begin
for j:= 1 to m do
if a^[i,j]<>0 then
inc(k);
if k=m then
inc(l);
k:=0;
end;
write('Количество строк не содержащих ни одного нулевого элемента: ',l);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.01.2014, 22:47
Ответы с готовыми решениями:

Найти в матрице количество строк, которые не содержат нулей
Найти в матрице количество строк, которые не содержат нулей var ...

Найти количество симметричных строк, которые не содержат цифр
Условие: Дан массив строк. Найти количество симметричных строк, которые не...

В матрице посчитать количество строк, не содержащих нулей
Два задания , находятся в фото ю Нужна помощь , у самого руки кривые =(

последовательная перестановка строк и столбиков в матрице (Исправить ошибки)
Дана квадратная матрица В. Получить новую матрицу, в которой последовательной...

Найти Количество нулей и едениц в матрице
Способ матрицы 4.Зада двумерный массив целых чисел А размером N на M,...

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25962 / 17408 / 6904
Регистрация: 22.10.2011
Сообщений: 30,647
Записей в блоге: 6
08.01.2014, 22:52 #2
Может, все-таки, задачу озвучишь?
0
ExPlAnEd
0 / 0 / 0
Регистрация: 27.11.2013
Сообщений: 28
08.01.2014, 22:56  [ТС] #3
Найти в матрице количество строк, которые не содержат нулей.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25962 / 17408 / 6904
Регистрация: 22.10.2011
Сообщений: 30,647
Записей в блоге: 6
09.01.2014, 00:03 #4
Pascal
11
12
13
14
  clrscr;
  randomize;
  new(a); { <--- Вот эту строку добавь }
  for i := 1 to n do
, потому что перед использованием динамической переменной надо выделить под нее память...
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2014, 00:03

Дана матрица A(7,3). Определить количество строк, которые содержат нулевые елементы, их номера
Помогите пожалуйста с задачей, компилятор ошибок не выдает, но программа не...

Найти количество слов, которые содержат сочетание ‘ом’
не могу додумать как найти слова, вот прога которая ищет все сочетания 'ом' но...

Найти количество ячеек, которые содержат число 5
10. Дан одномерный массив целых чисел, состоящий из 20 ячеек, заполненный...


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

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

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