Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Benur_z
0 / 0 / 0
Регистрация: 29.06.2014
Сообщений: 4
1

Получить последовательность выбросив из исходной все члены со значением max

29.06.2014, 12:05. Просмотров 707. Ответов 9
Метки нет (Все метки)

Даны целые числа (a[1],a[2],..a[n]). Получить последовательность выбросив из исходной все члены со значением max(a[1],a[2],..a[n])
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.06.2014, 12:05
Ответы с готовыми решениями:

Получить новую последовательность, выбросив из исходной все члены, которые деляться на 2 без остатка
Даны целые a1...... ai(i=i20) Получить новую последовательность выбросив из...

Получите новую последовательность, выбросив из исходной элементы со значением max (a1,a2,...,an).
дана последовательность целых чисел a=(a1,a2,....,an). Получите новую...

Получить новый массив, выбросив из исходного массива все члены с заданным значением
Здравствуйте! Проверьте пожалуйста решение задачи Program massiv; Var n, i,...

Получить новую последовательность Xi, выбросив из исходной все числа, большие заданного числа R.
Здравствуете, уважаемые программисты. Очень надо решить несколько задач на...

Образовать новую последовательность, выбросив из исходной те члены, которые равны min(a1,a2,...an)
ЗАДАЧА НА ПАСКАЛЕ! Здравствуйте, срочно нужна помощ, затра экзамен по...

9
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
29.06.2014, 12:36 2
Цитата Сообщение от Benur_z Посмотреть сообщение
max(a[1],a[2],..a[n])
мне кажется , это просто найти максимум?
0
Benur_z
0 / 0 / 0
Регистрация: 29.06.2014
Сообщений: 4
29.06.2014, 13:33  [ТС] 3
я тоже так думаю, но не знаю точно
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
29.06.2014, 13:39 4
Цитата Сообщение от Svager Посмотреть сообщение
мне кажется , это просто найти максимум?
Найти, а потом все максимальные удалить.
1
Benur_z
0 / 0 / 0
Регистрация: 29.06.2014
Сообщений: 4
29.06.2014, 13:52  [ТС] 5
Цитата Сообщение от Puporev Посмотреть сообщение
Найти, а потом все максимальные удалить.
Можешь написать программу?
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
29.06.2014, 13:55 6
Да я то могу, но ты сам напиши. Посмотри тему
Стандартные операции с массивами (матрицами)
0
Svager
29.06.2014, 14:51
  #7

Не по теме:

Цитата Сообщение от Puporev Посмотреть сообщение
Да я то могу
:):)

0
Benur_z
0 / 0 / 0
Регистрация: 29.06.2014
Сообщений: 4
29.06.2014, 15:27  [ТС] 8
Цитата Сообщение от Puporev Посмотреть сообщение
Да я то могу, но ты сам напиши. Посмотри тему
Стандартные операции с массивами (матрицами)
у меня получилось вот так, и у меня не удаляет максимальное значение, найди ошибку пожалуйста)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
   a:array[1..100] of integer;
   n,i,m,max:integer;
    begin
    write ('n->');
    readln(n);
    for i:=1 to n do readln(a[i]);
    readln;
    max:=2;
    for i:=1  to n do if a[i]>a[max]  then max:=i;
    writeln('max=a[',max,']=',a[max]);
    writeln;
    m:=0;
    for i:=1 to n do
    if (a[i]=0) then inc(m) else a[i-m]:=a[i];
    for i:=1 to n do
    write (a[i],' ');
    readln;
end.
0
Puporev
Модератор
54717 / 42123 / 29086
Регистрация: 18.05.2008
Сообщений: 99,430
29.06.2014, 15:39 9
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
uses crt;
var
   a:array[1..100] of integer;
   n,i,j,max:integer;
begin
clrscr;
write ('n->');
readln(n);
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Исходный массив');
max:=a[i];
for i:=1 to n do
 begin
  if a[i]>max then max:=a[i];
  write(a[i],' ');
 end;
writeln;
writeln('Максимум=',max);
i:=1;
while i<=n do
if a[i]=max then
 begin
  for j:=i  to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
 end
else i:=i+1;
writeln('Удаление максимальных');
for i:=1 to n do
write(a[i],' ');
readln;
end.
0
Svager
396 / 375 / 406
Регистрация: 14.09.2013
Сообщений: 1,204
29.06.2014, 15:40 10
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
uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    i,j,n,idx:integer;
begin
 repeat
  write('n=');
   readln(n);
 until n in [1..nmax];
  writeln('ГЊГ*Г±Г±ГЁГў :');
  idx:=1;
   for i:=1 to n do
    begin
     a[i]:=-10+random(21);
      if a[i]>a[idx] then
       idx:=i;
     write(a[i]:4);
    end;
  writeln;
   writeln('ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé ýëåìåГ*ГІ = ',a[idx],' i=',idx);
  for i:=idx to n-1 do
   a[i]:=a[i+1];
  writeln('Íîâûé Г¬Г*Г±Г±ГЁГў :');
  for i:=1 to n-1 do
   write(a[i]:4);
end.
Добавлено через 23 секунды
а ой не так..
0
29.06.2014, 15:40
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.06.2014, 15:40

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

Получить последовательность, где все нечетные члены удвоены
Даны целые числе a1,...,a50. Получить последовательность b1,...,b50, что...

Получить "сглаженные" значения a1,., a50, заменив в исходной последовательности все члены, кроме первого и последнего
Даны действительные числа a1,..., a50. Получить &quot;сглаженные&quot; значения a1,...,...


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

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

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