Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
Новичок
Модератор
1502 / 973 / 462
Регистрация: 17.07.2012
Сообщений: 4,945
Завершенные тесты: 3
16.01.2013, 18:30 0

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

16.01.2013, 18:30. Просмотров 806. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 18:30
Готовые ответы и решения:

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

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

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

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

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

1
Другие темы раздела
Turbo Pascal Как подключать в прогу библиотеки http://www.cyberforum.ru/turbo-pascal/thread763473.html
Как подключать в прогу библиотеки Framefork.net к примеру System.Windows.Forms.dll и System.Drawing.dll знаю что в PascalAbc.net можно делать это, а хотелось бы именно в Turbo Pascal. Помогите...
Turbo Pascal Определить комбинированный тип для представления следующих данных Определить комбинированный тип для представления следующих данных: анке- та (ФИО, пол, возраст, курс, номер группы). Написать программу, которая вводит эту информацию и печатает ФИО людей из... http://www.cyberforum.ru/turbo-pascal/thread763467.html
Turbo Pascal Кто нибудь проверьте код (массив)
В данной действительной квадратной матрице порядка n найти наибольший по модулю элемент. Получить квадратную матрицу порядка n-1 путем выбрасывания из исходной матрицы какой-нибудь строки и столбца,...
Вычислить сумму с заданной точностью Turbo Pascal
Дано действительное число х. Вычислить с точностью 10-6 program z; var e, y, y0, k, x: real; begin k:=1; e:=exp(ln(10)*(-6)); write('Введите х: ');
Turbo Pascal Объектно ориентированное программирование http://www.cyberforum.ru/turbo-pascal/thread763404.html
Написать программу,демонстрирующую на экране создание, перемещение и уничтожение списка объектов:прямоугольник, точка , линия, круг. uses crt,graph; type PGraphObject=^TGraphObject; ...
Turbo Pascal Вычисление интеграла методом трапеции (Проверить) Вычисление интеграла методом трапеции!!! Проверьте переменную Sr Procedure Trapecia; Var integ,Sl,Sr,h:Real; n,i:Integer; Begin TextBackGround(LightGray); ClrScr; ... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru