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

помогите братья и сёстры!!
AdAgent
Объявления
16.05.2010, 17:39     Заменить все отрицательные элементы целочисленного массива
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
4315 / 1446 / 59
Регистрация: 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
4315 / 1446 / 59
Регистрация: 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 / 5
Регистрация: 28.04.2010
Сообщений: 931
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     Заменить все отрицательные элементы целочисленного массива
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Задать вопрос
Опции темы

Текущее время: 06:31. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2015, vBulletin Solutions, Inc.
Яндекс.Метрика