Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
noobnoob
12 / 12 / 0
Регистрация: 14.06.2009
Сообщений: 45
#1

одномерный массив

14.06.2009, 15:53. Просмотров 858. Ответов 1
Метки нет (Все метки)

1.первая программа.
Исходный массив упорядочен по возрастанию. Ввести число К и вставить его в массив, не нарушая последовательности.
2.вторая программа.
Определить количество РАЗЛИЧНЫХ элементов в массиве (например, дано 24324746, результат 5).
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.06.2009, 15:53
Ответы с готовыми решениями:

Дан одномерный массив A из N элементов. Переписать положительные элементы массива в массив B, а отрицательные в массив C
Дан одномерный массив A из N элементов. Переписать положительные элементы...

Создать двумерный массив все четные элементы переписать в одномерный массив
создать двумерный массив все четные элементы переписать в одномерный массив

Дан одномерный массив G[n]. создать массив N, удалив из исходного массива минимальные элементы
Распишите пожалуйста подробнее!!!

Дан одномерный массив Z[n]. Сформировать массив L, содержащий только нечетные элементы массива Z
Задача на Pascal. Не решу - зачёт не поставят.

Дан одномерный массив, получить другой массив той же размерности, каждый элемент которого b[i]=a[1]+.+a[i]
Дан одномерный массив, получить другой массив той же размерности, каждый...

1
Puporev
Модератор
54407 / 41979 / 28997
Регистрация: 18.05.2008
Сообщений: 98,888
14.06.2009, 16:52 #2
Лучший ответ Сообщение было отмечено noobnoob как решение

Решение

№1.
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
var a:array[1..100] of integer;
    n,b,c,i,j:integer;
begin
clrscr;
randomize;
write('n=');
readln(n);
a[1]:=random(5);{первое число в массиве}
b:=a[1];{запомним}
for i:=2 to n do
 begin
  repeat
   a[i]:=random(i*5);{увеличиваем диапазон рандома}
  until a[i]>b;{ищем чило больше предыдущего}
  b:=a[i];{запоминаем его}
 end;
writeln('Исходный массив;');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Введите число b=');
readln(b);
if b>=a[n] then a[n+1]:=b{если больше всех - в конец}
else{если нет}
 begin
  for i:=1 to n do
   if a[i]>=b then{ищем число ьолше или равное этому}
    begin
     for j:=n+1 downto i+1 do{сдвигаем от него массив вправо}
     a[j]:=a[j-1];
     a[i]:=b;{на освободившееся место записываем число}
     break;{дальше не ищем}
    end;
 end;
writeln('Результат:');
for i:=1 to n+1 do
write(a[i],' ');
readln
end.
Добавлено через 14 минут 58 секунд
№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
27
28
29
30
31
uses Crt;
var
   a:array[1..50] of integer;
   n,i,j,l,rz:integer;
begin
ClrScr;
write('n=');readln(n);
randomize;
writeln('Массив:');
for i:=1 to n do
 begin
   a[i]:=random(10);
   write(a[i],' ');
 end;
writeln;
i:=1;rz:=0;
while i<=n do
  begin
    for j:=n downto i+1 do{смотрим строку с конца до данного числа}
    if a[j]=a[i] then{если попадаются такие же}
       begin
         for l:=j to n-1 do{сдвигаем к ним массив влево, елемент исчезает}
         a[l]:=a[l+1];
         dec(n);{уменьшаем на 1 размер массива}
       end;
    rz:=rz+1;{считаем число 1 раз}
    inc(i);
  end;
writeln('Разных чисел=',rz);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.06.2009, 16:52

Одномерный массив. Сформировать такой массив В, который содержит копию положительных элементов массива А
Дан одномерный массив чисел А. Сформировать такой массив В, который содержит...

Дан двухмерный массив A[m,n]. Составить одномерный массив из номеров столбцов исходного двухмерного массива, в
Добрый день, никак не получается решить данную задачу. Дан двухмерный...

Вставить одномерный массив в двумерный массив так, чтобы второй столбец был отсортирован по убыванию
Помогите пожалуйста решить задачку: Вставить в качестве новой строки...


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

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

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