Форум программистов, компьютерный форум 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 Все отрицательные элементы массива В заменить нулями
Pascal Заменить все отрицательные элементы целочисленного массива размера 10 на значение максимального.
Pascal Все отрицательные элементы массива заменить нулем
Pascal ABC Заменить все отрицательные элементы на первый элемент массива
Turbo Pascal Все отрицательные элементы массива заменить на 0
Turbo Pascal замените все положительные элементы заданного целочисленного массива из 8 элементов числом 1, а все отрицательные числом 0
Pascal ABC все отрицательные заменить нулями ,числа которые больше 7 заменить их остатком от их целочисленного деления на 7
Turbo Pascal Заменить все отрицательные элементы массива 0, а положительные увеличить на 2

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

Поиск по форуму:
yanyk1n
Форумчанин
4313 / 1444 / 25
Регистрация: 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
Форумчанин
4313 / 1444 / 25
Регистрация: 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
Форумчанин
131 / 127 / 4
Регистрация: 28.04.2010
Сообщений: 931
16.05.2010, 19:03     Заменить все отрицательные элементы целочисленного массива   #6
clrscr - эта функция очищает экран перед запуском проги. Uses Crt включает библиотеку для clrscr.

Если не хочешь, что бы при запуске программы на экране оставались результаты действия предыдущего запуска программы, лучше не убирай, если же тебе все ровно - сноси не стесняйся))
Алексей 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     Заменить все отрицательные элементы целочисленного массива
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

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