Форум программистов, компьютерный форум CyberForum.ru

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
#1

Заменить все отрицательные элементы целочисленного массива - Pascal

16.05.2010, 17:39. Просмотров 881. Ответов 6
Метки нет (Все метки)

7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива.

помогите братья и сёстры!!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2010, 17:39     Заменить все отрицательные элементы целочисленного массива
Посмотрите здесь:

Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. - Pascal
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Заранее спасибо!

Обнулить все отрицательные элементы целочисленного массива из 30 элементов - Pascal
Решите плз задачу. Обнулить все отрицательные элементы целочисленного массива из 30 элементов, заданного случайным образом числами от -15...

Все отрицательные элементы массива заменить на 0 - Turbo Pascal
два задания в расчетке осталось помогите плиз 2) Заполнить одномерный массив размерностью М (М ввести с клавиатуры) целыми числами от...

Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1 - Turbo Pascal
Дан массив А из n действительных чисел: a1, …, an. Вычислить: sin|a1|+…+sin|an| Все отрицательные элементы массива увеличить на 0,5, а...

Заменить, все отрицательные элементы массива на нули - Pascal ABC
6. Дан произвольный массив целых чисел размерности N*M. Заменить, все отрицательные элементы массива на нули.

Все отрицательные элементы массива заменить их квадратами - Turbo Pascal
Дан целый массив a1, a2…an. Если в этом массиве есть хотя бы один элемент, меньший, чем P, то все отрицательные элементы массива заменить...

Заменить все отрицательные элементы массива нулями - Pascal
Создать одномерный массив из 10 случайных целых чисел из интервала от -10 до 15.Заменить все отрицательные элементы массива нулями. ...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
yanyk1n
4329 / 1460 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
16.05.2010, 17:40     Заменить все отрицательные элементы целочисленного массива #2
Pascal
1
2
3
m:=a[1];
for i:=1 to 10 do if a[i] < m then m := a[i];
for i:=1 to 10 do if a[i] < 0 then a[i] := m;
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 17:49  [ТС]     Заменить все отрицательные элементы целочисленного массива #3
а можно всю программу? а то я по ПАСКАЛЮ ваще не знаю...
yanyk1n
4329 / 1460 / 152
Регистрация: 12.03.2009
Сообщений: 5,310
16.05.2010, 17:54     Заменить все отрицательные элементы целочисленного массива #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
const N = 10;
var a:array[1..N]of integer;
i, m: integer;
 
begin
 clrscr;
 write('Введите массив -> ');
 for i:=1 to N do read(a[i]);
 readln;
 m:=a[1];
 for i:=1 to N do if a[i] < m then m := a[i];
 for i:=1 to N do if a[i] < 0 then a[i] := m;
 for i:=1 to N do write(a[i],' ');
 readln;
end.
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 18:43  [ТС]     Заменить все отрицательные элементы целочисленного массива #5
программа работает. Спасибо. только НЕ нужны в программе {uses crt} end {clrscr}.
Правильно ли будет работать программа без них?

Добавлено через 24 минуты
а Блок схема у этой задачи какая, помоги пожалуйста....
AnTro.Net
131 / 127 / 16
Регистрация: 28.04.2010
Сообщений: 930
16.05.2010, 19:03     Заменить все отрицательные элементы целочисленного массива #6
clrscr - эта функция очищает экран перед запуском проги. Uses Crt включает библиотеку для clrscr.

Если не хочешь, что бы при запуске программы на экране оставались результаты действия предыдущего запуска программы, лучше не убирай, если же тебе все ровно - сноси не стесняйся))
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2010, 20:59     Заменить все отрицательные элементы целочисленного массива
Еще ссылки по теме:

Все отрицательные элементы массива заменить нулем - Pascal
N=10 Все отрицательные элементы массива заменить нулем. const WG=100; type tmasi=arrayof integer; var a:tmasi;...

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

Все отрицательные элементы массива заменить на их квадраты - Pascal ABC
Дан массив целых чисел. Все отрицательные элементы заменить на их квадраты. Заранее большое спасибо!

Заменить все отрицательные элементы массива на -1, а положительные на +1 - Turbo Pascal
Преобразовать массив, заменив все отрицательные числа на -1, а положительные на +1. помогите

Все отрицательные элементы массива, заменить их квадратами - Turbo Pascal
дан вещественный массив а1, а2, а...ан Если в этом массиве есть хотя бы 1 элемент меньший чем р, то все отрицательные элементы массива,...


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

Или воспользуйтесь поиском по форуму:
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 20:59  [ТС]     Заменить все отрицательные элементы целочисленного массива #7
Дано действительное число х, натуральное число n. Вычислить:
13. x ( x - n )( x - 2 n )( x - 3 n )…( x - n2 );

А эту програмку как написать на ПАСКАЛЕ братья)) Срочно нужно))
Yandex
Объявления
16.05.2010, 20:59     Заменить все отрицательные элементы целочисленного массива
Ответ Создать тему
Опции темы

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