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

Двумерный массив. Вывести номера элементов имеющих нулевые значения - Turbo Pascal

16.01.2013, 16:42. Просмотров 297. Ответов 1
Метки нет (Все метки)

Дан двумерный массив q,n,m вывести номера элементов имеющих нулевые значения, если таких элементов нет вывести соответствующие сообщение.
Помогите пожалуйста.
http://www.cyberforum.ru/turbo-pascal/thread433071.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 16:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Двумерный массив. Вывести номера элементов имеющих нулевые значения (Turbo Pascal):

Вывести номера строк, оба элемента которых имеют нулевые значения
Дана таблица А(2,8). Вывести номера строк, оба элемента которых имеют нулевые...

Найти номера всех элементов целочисленного массива, имеющих максимальные значения
Найти номера всех элементов целочисленного массива, имеющих максимальные...

Массив: найти среднее арифметическое значение положительных элементов, имеющих нечетные номера
В Массиве У(n) найти среднее арифметическое значение положительных элементов,...

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

Вывести среднее арифметическое элементов массива, имеющих четные значения
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать...

1
Новичок
Модератор
1482 / 948 / 457
Регистрация: 17.07.2012
Сообщений: 4,888
Завершенные тесты: 3
16.01.2013, 18:30 #2
Лучший ответ Сообщение было отмечено Rouch как решение

Решение

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
program noname;
uses Crt;
var a:array[1..100,1..100] of Integer;
i,j,m,n:Integer;
found:Boolean;
begin
repeat;
ClrScr;
Write('Введите размеры матрицы:');
Readln(m,n);
until (m in [1..100]) and (n in [1..100]);
Writeln('Введите элементы массива:');
for i:=1 to m do
for j:=1 to n do Read(a[i,j]);
Writeln('Введенная матрица:');
for i:=1 to m do
begin
for j:=1 to n do Write(a[i,j]:4);
Writeln;
end;
for i:=1 to m do
for j:=1 to n do
if a[i,j]=0 then
begin
if found=False then Writeln('Нулевые элементы найдены:');
found:=True;
Writeln('[',i,',',j,']');
end;
if found=False then Writeln('Нулевых элементов не найдено!');
Readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 18:30
Привет! Вот еще темы с решениями:

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

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

Дан двумерный массив. Найти номера первых отрицательных элементов каждой строки
Дан двумерный массив. Найти номера первых отрицательных элементов каждой...

Вывести на экран номера и значения положительных элементов массива
Извини за то что беспокою может по пустякам у меня такая не большая проблемка у...


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

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

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