Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Rouch
1 / 1 / 0
Регистрация: 05.12.2011
Сообщений: 62
#1

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

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

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

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

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

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

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

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

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

1
Новичок
Модератор
1261 / 809 / 182
Регистрация: 17.07.2012
Сообщений: 4,296
Записей в блоге: 1
Завершенные тесты: 2
16.01.2013, 18:30 #2
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). Определить произведение отрицательных элементов, имеющих сумму индексов, больше заданного числа Р. - Pascal
Помогите плз решить задачку по массивам. 1.Задан двумерный массив А(5, 6). Определить произведение отрицательных элементов, имеющих...

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

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

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


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

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

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