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

@Вадим2000 · Регистрация: 23.04.2018

Студворк — интернет-сервис помощи студентам

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

@ZX Spectrum-128 · 23.04.2018, 09:52

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

@Puporev · 23.04.2018, 10:00

Pascal

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.

@Вадим2000 0 / 0 / 0 Регистрация: 23.04.2018 Сообщений: 11
		1
	Упорядочить по убыванию все положительные элементы одномерного массива, остальные элементы заменить нолями 23.04.2018, 07:37. Показов 1951. Ответов 2 Метки нет (Все метки) Составить программу упорядочения (по убыванию) всех положительных элементов одномерного массива, остальные элементы заменить нулями 0

@ZX Spectrum-128 6806 / 4565 / 4817 Регистрация: 05.06.2014 Сообщений: 22,438
	23.04.2018, 09:52	2
	Упорядочить по убыванию только положительные элементы массива, оставив другие элементы в прежних ячейках 0

Опции темы

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

Решение