Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
PlayHard
2 / 2 / 4
Регистрация: 24.11.2009
Сообщений: 76
#1

Элементы массива X, стоящие между минимальными и максимальным элементом, заменить элементами массива Y

12.02.2010, 18:55. Просмотров 924. Ответов 1
Метки нет (Все метки)

Ввести два однмерных массива X(N) и Y(M), где M>(N-2).
Все элементы массива X, стоящие между минимальными и максимальным элементом, заменить элементами массива Y, начиная с первого. Если элементов в массиве Y больше, чем требуется для замены, то их не переписывать. Выдать на печать исходный и результирующий массив X и массивY.

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 18:55
Ответы с готовыми решениями:

Из массива удалить элементы , кратные трем, стоящие между максимальным и минимальным элементами
Помогите срочно надо.Из массива удалить элементы , кратные трем, стоящие между...

Из массива удалить элементы, кратные трем, стоящие между максимальным и минимальным элементами
Помогите срочно надо.Из массива удалить элементы , кратные трем, стоящие между...

Удалить все элементы массива, стоящие между минимальным положительным и максимальным отрицательным элементами
Помогите плиззз=((( Задание:В массиве A=(a1, а2, ..., аn) удалить все...

Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным элементами
1)Из массива удалить элементы, имеющие четный индекс и стоящие между...

Посчитать произведение эл-ов массива, расположенных между максимальным и минимальными элементами.
Добрый вечер! написал код, но программа в конце вылетает. Что тут не так?...

1
Unrealler
653 / 351 / 113
Регистрация: 11.12.2009
Сообщений: 508
12.02.2010, 19:54 #2
Лучший ответ Сообщение было отмечено PlayHard как решение

Решение

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
uses crt;
var
   x,y:array[1..100] of integer;
   i,n,m,max,min,maxn,minn,z,s:integer;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* x=');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ* y (>n-2)=');
readln(m);
writeln('ГЊГ*Г±Г±ГЁГў x');
max:=0;
min:=40;
for i:=1 to n do
 begin
  x[i]:=random(51)-10;
  if (x[i]>=max) then
   begin
    max:=x[i];
    maxn:=i;
   end;
  if (x[i]<=min) then
   begin
    min:=x[i];
    minn:=i;
   end;
  write(x[i]:4);
 end;
writeln;
writeln('ГЊГ*Г±Г±ГЁГў y');
for i:=1 to m do
 begin
  y[i]:=random(51)-10;
  write(y[i]:4);
 end;
writeln;
if (maxn>minn) then
 for i:=minn+1 to maxn-1 do
  inc(s)
else
 for i:=maxn+1 to minn-1 do
  inc(s);
if (s<m) then write('ГЃГҐГ§ èçìåГ*ГҐГ*ГЁГ©') else
 begin
  if (maxn>minn) then
   for i:=minn+1 to maxn-1 do
    begin
     inc(z);
     x[i]:=y[z];
    end
  else
   for i:=maxn+1 to minn-1 do
    begin
     inc(z);
     x[i]:=y[z];
    end;
 writeln('Íîâûé Г¬Г*Г±Г±ГЁГў x');
  for i:=1 to n do
   write(x[i]:4);
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2010, 19:54

Заменить нулями элементы массива между минимальными и максимальными, кроме них самих
Дан 1- мерный массив A(N), где N - заданное натуральное число.Массив получен...

Суммировать те элементы массива, которые расположены между минимальным и максимальным элементом
Здравствуйте. Помогите мой код пожалуйста переделать в списки... Не могу...

Все минимальные элементы, стоящие на четных местах, заменить максимальным элементом этой последовательности.
Дана последовательность из n целых чисел. Все минимальные элементы, стоящие на...


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

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

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