04.05.2016, 15:30
|
#1 (permalink) |
|
Member
Регистрация: 07.04.2016
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Одномерный массив
элементов 1) вычислить сумму элементов массива, расположенных до последнего положительного элемента; 2) сжать массив, удалив из него все элементы, модуль которых находится в интервале [а,b]. Освободившиеся в конце массива элементы заполнить нулями; 3) упорядочить элементы массива по возрастанию, используя линейную сортировку; 4) найти заданный элемент в упорядоченном массиве, используя бинарный метод поиска. |
|
|
|
04.05.2016, 15:30
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Пока люди думают, что вам ответить вы можете ознакомиться с подобными темами Одномерный массив Одномерный массив |
|
04.05.2016, 16:35
|
#2 (permalink) |
|
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
3.
Код:
uses Crt;
const n=15;
type Tmass=array[1..n] of integer;
var a:Tmass;
i,j,t:integer;
begin
ClrScr;
Writeln('Ne sortirovanniy massiv:');
Writeln;
Randomize;
for i:=1 to n do
begin
a[i]:=Random(100);
Write(a[i]:4);
end;
Writeln;
Writeln;
for i:=1 to n-1 do
begin
t:=i;
for j:=i to n do
if a[j]<a[t]
then t:=j;
j:=a[i];
a[i]:=a[t];
a[t]:=j;
end;
Writeln('Sortirovanniy massiv:');
Writeln;
for i:=1 to n do
Write(a[i]:4);
Writeln;
ReadKey;
end.
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
