232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
1

Замена минимального элемента в массиве, максимальным.

04.03.2011, 13:25. Показов 3812. Ответов 2
Метки нет (Все метки)

Доброго всем времени суток. Подскажите пожалуйста, как сделать программу, по замене первого отрицательного элемента на максимальный элемент этого же массива. У меня получилась программа, которая находит максимальный элемент, но не заменяет им минимальный. Вот исходный код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const n=5;
var a:array[1..n] of integer;
i,max,min:integer;
begin clrscr;
randomize;
writeln('Odnomernyi massiv: ');
for i:=1 to n do begin
a[i]:=random(15)-5;
end;
for i:=1 to n do begin
write(a[i]:3);
end;
max:=1;
min:=0;
for i:=1 to n do
begin
if a[i]>a[max] then max:=i;
if (a[i]<0) and (min=0) then min:=i;
end;
write(a[max]);
readln;
end.
Заранее благодарен.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2011, 13:25
Ответы с готовыми решениями:

Программа нахождения минимального элемента в массиве и замена его с последним
помогите найти сдесь ошибку, у меня не заменяет минимальный элемент с последним. program...

Добавление элемента с максимальным значением после минимального элемента (Allegro Lisp)
Помогите сделать 1 программку максимально просто -добавление элемента с максимальным значением...

Вывод минимального номера строки и столбца с максимальным значением элемента массива
Есть массив, из которого выводиться максимальный элемент, при этом, если элемент в этом массиве...

Нахождение в массиве минимального элемента среди положительных и его номера в массиве
• Нахождение в массиве минимального элемента среди положительных и его номера в массиве. •...

2
66 / 63 / 63
Регистрация: 15.12.2010
Сообщений: 150
04.03.2011, 14:27 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses crt;
const n=5;
var a:array[1..n] of integer;
i,max:integer;
begin clrscr;
randomize;
writeln('Odnomernyi massiv: ');
for i:=1 to n do begin
a[i]:=random(15)-5;
end;
for i:=1 to n do begin
write(a[i]:3);
end;
max:=1;
min:=0;
for i:=1 to n do
begin
if a[i]>max then max:=a[i];
end;
for i:=1 to n do
    begin
         if a[i]<0 then begin a[i]:=max; break;end;
    end;writeln;
for i:=1 to n do write(a[i]:3);
readln;
end.
вот думаю так
1
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
04.03.2011, 18:16 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const n=5;
var a:array[1..n] of integer;
i,max,min:integer;
begin
randomize;
max:=1;
writeln('Odnomernyi massiv: ');
for i:=1 to n do
begin
a[i]:=random(15)-5;
write(a[i]:3);
if a[i]>a[max] then
max:=i;
end;
for i:=1 to n do
if a[i]<0 then
begin
a[i]:=a[max];
break;
end;
writeln;
for i:=1 to n do
write(a[i]:3);
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.03.2011, 18:16
Помогаю со студенческими работами здесь

Заменить все элементы массива с максимальным значением на сумму цифр минимального элемента
Дан целочисленный массив А. Заменить все элементы массива с максимальным значением на сумму цифр...

Заменить все элементы массива с максимальным значением на сумму цифр минимального элемента
Дан массив A.Заменить все элементы массива с максимальным значением на сумму цифр минимального...

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

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

Замена минимального элемента строки на первый
в заданной матрице 5x5 найти min элемент в каждой строке и записать его на место первого элемента...

В двух последовательностях замените все элементы, следующие за элементом с максимальным значением, на значение минимального элемента
пусть дан фрагмент программы: var S: set of char; c,d: char присвойте переменной перечисленные ниже...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru