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

Pascal (Паскаль)

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

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

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

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

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

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

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

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

Все отрицательные элементы массива В заменить нулями - Pascal
Все отрицательные элементы массива В заменить нулями.Вывести на экран исходный и преобразованный массивы. Исходные величины:N=7...

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

Заменить все отрицательные элементы двумерного массива на максимальный элемент. - Pascal
Здравствуйте уважаемые знатоки. Хотелось бы получить помощь по отписанной ниже программе. Составьте программу меняющую все отрицательные...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
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;
0
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 17:49  [ТС] #3
а можно всю программу? а то я по ПАСКАЛЮ ваще не знаю...
0
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.
0
Алексей Bont
1 / 1 / 0
Регистрация: 16.05.2010
Сообщений: 18
16.05.2010, 18:43  [ТС] #5
программа работает. Спасибо. только НЕ нужны в программе {uses crt} end {clrscr}.
Правильно ли будет работать программа без них?

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

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

А эту програмку как написать на ПАСКАЛЕ братья)) Срочно нужно))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2010, 20:59
Привет! Вот еще темы с ответами:

Заменить все отрицательные элементы на среднее арифметическое значение элементов массива - Pascal
ввести двухмерный массив A(N,N) Создать программу замены всех негативных элементов на среднее арифметическое значение элементов массива

Все отрицательные элементы массива заменить единицей, положительные возвести в квадрат, нули оставить - Pascal
Создать массив случайных чисел на интервале от -15 до 15. Все отрицательные элементы заменить единицей, положительные - возвести в квадрат...

В массиве все положительные элементы умножить на 10, а все отрицательные заменить на 0 - Pascal
1. В одномерном массиве размерностью N все положительные элементы умножить на 10, а все отрицательные элементы заменить на 0.

Заменить в массиве все отрицательные элементы на положительные - Pascal
Дан массив T,заменить в нем все отрицательные элементы на положительные. const n=10; var a,b:array of real; i:integer; s:real; ...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
16.05.2010, 20:59
Ответ Создать тему
Опции темы

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