сортировка массива

@nastia_k · Регистрация: 04.02.2013

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

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

Новичок · 05.02.2013, 00:38

Pascal

program q;
uses crt;
var a,b:array[1..100]of Real;
i,j,n,m:Integer;
z,k:Real;
begin
repeat
ClrScr;
Write('Введите размерность массива,n=');
Readln(n);
until n in [1..100];
Writeln('Введите значения элементов массива:');
for i:=1 to n do 
begin
Write('a[',i,']=');
Readln(a[i]);
end;
Writeln('Введите число:');
Readln(k);
for i:=1 to n do
if abs(a[i])>k then 
begin
inc(m);
b[m]:=a[i];
end;
for i:=1 to m do 
for j:=1 to m do 
if b[i]>b[j] then
begin
z:=b[j];
b[j]:=b[i];
b[i]:=z;
end;
Writeln('Полученный массив:');
for i:=1 to m do Write(b[i]:0:2,' ');
Readln;
end.

Добавлено через 1 минуту
Есть вопрос по условию,

Сообщение от nastia_k

абсолютная величина которых больше заданного числа

абсолютная величина которых больше заданного числа или абсолютная величина которых больше абсолютной величины заданного числа?

@nastia_k 1 / 1 / 1 Регистрация: 04.02.2013 Сообщений: 14
		1
	сортировка массива 05.02.2013, 00:03. Показов 1067. Ответов 1 Метки нет (Все метки) Дан одномерный массив действительного типа. Получить другой массив , состоящий только из чисел исходного массива ,абсолютная величина которых больше заданного числа или сообщить, что таких чисел нет. Полученный массив вывести в порядке убывания элементов. 0

	05.02.2013, 00:38

сортировка массива

Решение