Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
PlayHard
2 / 2 / 1
Регистрация: 24.11.2009
Сообщений: 76
#1

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

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

Ввести два однмерных массива X(N) и Y(M), где M>(N-2).
Все элементы массива X, стоящие между минимальными и максимальным элементом, заменить элементами массива Y, начиная с первого. Если элементов в массиве Y больше, чем требуется для замены, то их не переписывать. Выдать на печать исходный и результирующий массив X и массивY.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2010, 18:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Элементы массива X, стоящие между минимальными и максимальным элементом, заменить элементами массива Y (Turbo Pascal):

Из массива удалить элементы , кратные трем, стоящие между максимальным и минимальным элементами - Turbo Pascal
Помогите срочно надо.Из массива удалить элементы , кратные трем, стоящие между максимальным и минимальным элементами. пример:из массива А:1...

Из массива удалить элементы, кратные трем, стоящие между максимальным и минимальным элементами - Turbo Pascal
Помогите срочно надо.Из массива удалить элементы , кратные трем, стоящие между максимальным и минимальным элементами. пример:из массива А:1...

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

Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным элементами - Turbo Pascal
1)Из массива удалить элементы, имеющие четный индекс и стоящие между максимальным и минимальным элементами. Пример: из массива A: 9 3 4 9...

Посчитать произведение эл-ов массива, расположенных между максимальным и минимальными элементами. - Turbo Pascal
Добрый вечер! написал код, но программа в конце вылетает. Что тут не так? Помогите пожалуйста. uses SysUtils; type mas=array of...

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

1
Unrealler
652 / 350 / 26
Регистрация: 11.12.2009
Сообщений: 508
12.02.2010, 19:54 #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
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
Привет! Вот еще темы с ответами:

Суммировать те элементы массива, которые расположены между минимальным и максимальным элементом - Turbo Pascal
Здравствуйте. Помогите мой код пожалуйста переделать в списки... Не могу разобраться в них. И ещё не знаю как сделать проверку на повтор...

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

Вывести элементы массива, расположенные между минимальным и максимальным элементами - Turbo Pascal
№1.вычислить y=cos(x)+cos(0.2x)+cos(0.4x)+.+cos(10x) var x,y,k:real; begin write('x = ');readln(x); y:=cos(x);k:=0; ...

В массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от максимального значения массива заменить на 0 - Turbo Pascal
1) в массиве все нечетные элементы, стоящие ниже минимального элемента массива и стоящие слева от максимального значения массива заменить...


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

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

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