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

Pascal (Паскаль)

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

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

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

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

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

Все отрицательные элементы массива В заменить нулями Pascal
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Pascal
Все отрицательные элементы массива заменить нулем Pascal
Turbo Pascal Все отрицательные элементы массива, заменить их квадратами
Pascal ABC Все отрицательные элементы массива заменить нулями, элементы больше 3 увеличить на 1
Turbo Pascal Все отрицательные элементы массива заменить на 0
Заменить все отрицательные элементы массива на нули Turbo Pascal
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
yanyk1n
4326 / 1457 / 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
4326 / 1457 / 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 ABC Все отрицательные элементы массива заменить на их квадраты
Pascal Обнулить все отрицательные элементы целочисленного массива из 30 элементов
Pascal Заменить все отрицательные элементы массива нулями
Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1 Turbo Pascal
Заменить, все отрицательные элементы массива на нули Pascal ABC

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

Или воспользуйтесь поиском по форуму:
Алексей 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     Заменить все отрицательные элементы целочисленного массива
Ответ Создать тему
Опции темы

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