Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального

@Andrey5995 · Регистрация: 08.12.2011

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

@КонецСвета · 09.12.2011, 23:18

Pascal

uses crt;
var a,b: array [1..100] of integer;
    m,n,i,j,imax,imin: integer;
begin
write('размер массива ');
readln(m);
writeln('Массив А');
imax:=1;imin:=1;
for i:=1 to m do
    begin
    a[i]:=random(101)-50;
    write(a[i]:4);
    if a[i]<a[imin] then imin:=i;
    if a[i]>a[imax] then imax:=i;
    end;
writeln;
writeln('Максимальное значение ',a[imax]:4,' под номером ',imax);
writeln('Минимальное значение  ',a[imin]:4,' под номером ',imin);
if imax>imin then writeln('Формирование массива В невозможно: min перед max')
   else
   begin
   j:=1;
   for i:=imax+1 to imin-1 do
       begin
       b[j]:=a[i];
       inc(j);
       end;
n:=j-1;
writeln('Массив В');
for j:=1 to n do
    write(b[j]:4);
   end;
readkey
end.

magirus · 13.12.2011, 23:45

читать срочно

@Andrey5995 0 / 0 / 0 Регистрация: 08.12.2011 Сообщений: 5
		1
	Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального 09.12.2011, 11:48. Показов 1459. Ответов 2 Метки нет (Все метки) Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального 0

magirus Почетный модератор 28044 / 15777 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	13.12.2011, 23:45	3
	читать срочно 0

Опции темы

Дан массив A(m). Переписать в массив В все элементы, стоящие после максимального элемента и до минимального

Решение