Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 17:39     Заменить все отрицательные элементы целочисленного массива #1
7. Заменить все отрицательные элементы целочисленного массива размера 10 на минимальное значение элементов массива.

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

Все отрицательные элементы массива В заменить нулями Pascal
Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального. Pascal
Все отрицательные элементы массива заменить нулем Pascal
Turbo Pascal Все отрицательные элементы массива заменить их квадратами
Turbo Pascal Все отрицательные элементы массива заменить на 0
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
yanyk1n
 Аватар для yanyk1n
4318 / 1449 / 109
Регистрация: 12.03.2009
Сообщений: 5,311
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
 Аватар для yanyk1n
4318 / 1449 / 109
Регистрация: 12.03.2009
Сообщений: 5,311
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
 Аватар для AnTro.Net
131 / 127 / 10
Регистрация: 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     Заменить все отрицательные элементы целочисленного массива
Еще ссылки по теме:

замените все положительные элементы заданного целочисленного массива из 8 элементов числом 1, а все отрицательные числом 0 Turbo Pascal
Pascal Обнулить все отрицательные элементы целочисленного массива из 30 элементов
Все отрицательные элементы массива увеличить на 0.5, а все неотрицательные заменить на 0.1 Turbo Pascal

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

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

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