Сформировать новый массив из элементов данного.

@denisK@ · Регистрация: 24.12.2009

Author24 — интернет-сервис помощи студентам

Написать программу, которая формирует новый массив, элементами которого являются элементы исходного массива, находящиеся между минимальным и максимальным элементом.

@Puporev · 07.02.2010, 19:54

Pascal

uses crt;
const max=100;
var a,b:array[1..max] of integer;
    n,i,j,k:byte;
    imn,imx:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
imn:=1;
imx:=1;
for i:=1 to n do
 begin
  if a[i]<a[imn] then imn:=i;
  if a[i]>a[imx] then imx:=i;
 end;
writeln('Минимальный элемент =',a[imn],' номер=',imn);
writeln('Максимальный элемент=',a[imx],' номер=',imx);
k:=0;
if imn<imx then
for i:=imn+1 to imx-1 do
 begin
  k:=k+1;
  b[k]:=a[i];
 end
else
 for i:=imx+1 to imn-1 do
 begin
  k:=k+1;
  b[k]:=a[i];
 end;
writeln('Массив B:');
for i:=1 to k do
write(b[i],' ');
readln
end.

@denisK@ · 07.02.2010, 20:42 **[ТС]**

не выводит массив

@yanyk1n · 07.02.2010, 21:50

denisK@, так программа верно работает. Просто введите большие значения n>=10, тогда вероятность того, что мин. и макс. элементы будут рядом уменьшится.

@denisK@ 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 30
		1
	Сформировать новый массив из элементов данного. 07.02.2010, 16:36. Показов 1112. Ответов 3 Метки нет (Все метки) Написать программу, которая формирует новый массив, элементами которого являются элементы исходного массива, находящиеся между минимальным и максимальным элементом. 0

@denisK@ 0 / 0 / 0 Регистрация: 24.12.2009 Сообщений: 30
	07.02.2010, 20:42 [ТС]	3
	не выводит массив 0

@yanyk1n 4342 / 1474 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	07.02.2010, 21:50	4
	denisK@, так программа верно работает. Просто введите большие значения n>=10, тогда вероятность того, что мин. и макс. элементы будут рядом уменьшится. 1