Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
cravil
0 / 0 / 1
Регистрация: 22.04.2012
Сообщений: 14
#1

Минииальный элемент одномерного массива Х длины N заменить нулем - Turbo Pascal

10.05.2012, 06:15. Просмотров 328. Ответов 1
Метки нет (Все метки)

Минииальный элемент одномерного массива Х длины N заменить нулем. Если несколько элементов имеют значение, равное минимальному, то на ноль заменить.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.05.2012, 06:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Минииальный элемент одномерного массива Х длины N заменить нулем (Turbo Pascal):

Заменить первый элемент массива, кратный 5, нулем
заменить первый элемент массива кратный 5 нулем

Заменить минимальный по модулю отрицательный элемент массива нулем
Дан одномерный массив из 10 целых чисел заполненный случайным образом. а)...

Заменить минимальный по модулю положительный элемент массива нулем
Дан массив целых чисел, состоящий из 30 элементов. Заполнить его с клавиатуры....

Заменить максимальный по модулю отрицательный элемент массива нулем
дан массив целых чисел C, состоящий из 30 элементов. заполнить его с...

Найти первый максимальный элемент массива и заменить его нулем
Дан массив действительных чисел. Среди них есть равные. Найти его первый...

Найти максимальный элемент массива и заменить значения до максимального нулем, после максимального единицей
Ребят,помогите. Дан массив из 10 чисел,необходимо:ввести 10 значений...

1
SINIGR
1 / 1 / 4
Регистрация: 24.07.2011
Сообщений: 34
10.05.2012, 07:48 #2
Лучший ответ Сообщение было отмечено cravil как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const n=4;
var
a:array [0..n] of integer;
i:integer;
min:integer;
begin
Writeln('Заполните массив');
for i:=0 to n do readln(a[i]);
min:=10000;
for i:=0 to n do begin
if a[i]<min then min:=a[i];
end;
for i:=0 to n do begin
if a[i]=min then a[i]:=0;
end;
for i:=0 to n do writeln(a[i]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.05.2012, 07:48
Привет! Вот еще темы с решениями:

Заменить первый элемент одномерного массива суммой максимального и минимального элементов
Дан одномерный массив с числом элементов n&lt;20. Заменить первый элемент этого...

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

Заменить каждый элемент одномерного массива на его среднее арифметическое со своими соседями
Описать процедуру, заменяющую каждый элемент одномерного массива на его среднее...

Заменить минимальный положительный элемент массива нулем
1) заменить минимальный положительный элемент нулем. 2) заменить элемент с...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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