Помогите сделать в Pascal

Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0 ... в промежутке (10; 50)

Question

Информатика

Досифея

20 октября, 21:51

Помогите сделать в Pascal

Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0 ... в промежутке (10; 50)

+5

Ответы (1)

Знаете ответ на вопрос?

Петюся · Answer 1

Program gt;

var n, i, j, min, max, l, h:integer;

a:array[1 ... 1000]of integer;

begin

readln (n) ;

l:=1; h:=1;

max:=-maxint; min:=maxint;

for i:=1 to n do

begin

read (a[i]) ;

if (a[i]>max) then begin

l:=i; max:=a[i];

end;

if (a[i]
h:=i; min:=a[i];

end;

end;

for i:=1 to n do

if (((i>h) and (i10) and (a[i]<50) then

write (0,' ') else write (a[i],' ') ;

end.

Помогите сделать в PascalНайти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0 ... в промежутке (10; 50)

Помогите сделать в Pascal

Найти минимальный и максимальный элементы массива и все элементы расположенные между ними заменить на 0 ... в промежутке (10; 50)