Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 23.04.2018
Сообщений: 11
1

Упорядочить по убыванию все положительные элементы одномерного массива, остальные элементы заменить нолями

23.04.2018, 07:37. Просмотров 929. Ответов 2
Метки нет (Все метки)

Составить программу упорядочения (по убыванию) всех положительных элементов одномерного массива, остальные элементы заменить нулями
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.04.2018, 07:37
Ответы с готовыми решениями:

В одномерном массиве все отрицательные элементы заменить нулями и упорядочить элементы массива по убыванию
В одновимірному масиві всі від’ємні елементи замінити нулями і впорядкувати елементи масиву за...

Заменить все положительные элементы одномерного массива на наименьший
Дан одномерный массив из N элементов. Заменить все его положительные элементы на наименьший элемент...

Заменить все положительные элементы одномерного массива на нули
Дан одномерный массив F1 ,... F20 Если модуль суммы положительных элементов больше мудуля суммы...

Упорядочить по убыванию только положительные элементы массива, оставив другие элементы в прежних ячейках
Упорядочить по убыванию только положительные элементы массива, оставив другие элементы в прежних...

2
Модератор
61120 / 45826 / 31637
Регистрация: 18.05.2008
Сообщений: 110,350
23.04.2018, 10:00 3
Лучший ответ Сообщение было отмечено Вадим2000 как решение

Решение

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
const n=15;
var a:array[1..n] of integer;
    i,j,x:integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-15+random(31);
  write(a[i]:4);
 end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]>0)and(a[j]>0)and(a[i]<a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
for i:=1 to n do
if a[i]<0 then a[i]:=0;
writeln('Измененный массив');
for i:=1 to n do
write(a[i]:4);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.04.2018, 10:00

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Все положительные элементы одномерного массива, кратные трем заменить на число 1
Все положительные элементы одномерного массива, кратные трем заменить на число 1. Обнулить все...

Упорядочить элементы массива, располагая сначала элементы, модуль которых не превышает 5, а потом – все остальные
Составить программу, формирующую одномерный массив, состоящий из N целых элементов. Вычислить сумму...

Упорядочить элементы файла так, чтобы сначала следовали все положительные компоненты, а затем все остальные
составить программы с помощью которых: -сформировать файл из целых чисел, которые должны быть...

Первую половину массива упорядочить по возрастанию, остальные элементы - по убыванию
Дан массив из четного количества элементов. Первую половину упорядочить по возрастанию, остальные-...


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

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

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