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

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
roland123
40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
#1

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

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

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

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

Дан массив В(m),m<=20.Все отрицательные элементы заменить нулями - Turbo Pascal
Дан массив В(m),m&lt;=20.Все отрицательные элементы заменить нулями.Вывести на печать исходный массив,переформированный массив,а также сумму...

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

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

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

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

1
Takeshi80
17 / 15 / 2
Регистрация: 08.03.2012
Сообщений: 126
31.03.2012, 14:55 #2
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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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