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

В матрице заменить нулями все элементы строк, содержащих отрицательные элементы - Turbo Pascal

31.03.2012, 14:11. Просмотров 479. Ответов 1
Метки нет (Все метки)

В матрице заменить нулями все элементы строк, содержащих отрицательные элементы. Использовать Procedure.
1
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.03.2012, 14:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В матрице заменить нулями все элементы строк, содержащих отрицательные элементы (Turbo Pascal):

Если все элементы главной диагонали целочисленной матрицы упорядочены по убыванию, заменить нулями все отрицательные элементы матрицы
задача. Если все элементы главной диагонали целочисленной матрицы упорядочены...

Дан массив В(m),m<=20.Все отрицательные элементы заменить нулями
Дан массив В(m),m&lt;=20.Все отрицательные элементы заменить нулями.Вывести на...

В каждой из двух матриц все отрицательные элементы заменить нулями
даны 2 матрицы одинакового размера.в каждой из двух матриц все отрицательные...

В одномерном числовом массиве все отрицательные элементы заменить нулями
В одномерном числовом массиве все отрицательные элементы заменить нулями.

В заданной матрице заменить все положительные элементы нулями
Помогите пожалуйста решить задачу. Напишите программу, которая в заданной N*M...

В массиве заменить нулями все отрицательные элементы, предшествующие единственному максимальному
В массиве заменить нулями все отрицательные элементы, предшествующие...

1
Takeshi80
17 / 15 / 10
Регистрация: 08.03.2012
Сообщений: 126
31.03.2012, 14:55 #2
Лучший ответ Сообщение было отмечено roland123 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
const nmax=5000;
var a:array[1..nmax] of integer; n:integer;
 
procedure FormMas(x:array of integer);
var i:integer;
begin randomize;
write('Vvedie dliny matrici: '); readln(n);
writeln('Masyw:');
for i:=1 to n do
begin
x[i]:=random(10)-5;
if x[i]<0 then x[i]:=0;
writeln(x[i]:3);
end;
end;
 
begin
clrscr; FormMas(a);
readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.03.2012, 14:55
Привет! Вот еще темы с решениями:

Заменить все отрицательные элементы нулями и подсчитать сумму положительных элементов
Задан двухмерный массив вещественных чисел.Заменить все отрицательные элементы...

В заданном одномерном массиве все отрицательные элементы заменить нулями и подсчитать их количество
В заданном одномерном массиве все отрицательные элементы заменить нулями и...

В каждой строке заданной матрице N*M заменить все положительные элементы нулями
Помогите решить пожалуйста вот такую задачу. В каждой строке заданной матрице...

Заменить в матрице все отрицательные элементы числом 0, положительные элементы – числом 1
Дана целочисленная матрица размера 5x7. Заменить в данной матрице все...


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

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

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