Обнулить элементы массива между минимальным и максимальным его элементом

@гошанчик · Регистрация: 22.12.2010

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

Дан массив размера N, обнулить элементы массива между минимальным и максимальным его элементом (не включая минимальный и максимальный элемент)

@Obliv · 22.12.2010, 21:44

{Дано натуральное число. Определить, является
ли сумма его максимальной и минимальной цифр
кратной числу

Pascal

a. }
uses crt;
const
n=10;
var
a:array[1..n] of integer;
max,min,i,imin,imax:integer;
begin
clrscr;
for i:=1 to n do
  begin
    a[i]:=random(10)-5;
    write(a[i]:4);
  end;
writeln;
min:=0;max:=0;
for i:=1 to n do
  begin
    if a[i]>max then
                 begin
                   max:=a[i];
                   imax:=i;
                 end;
    if a[i]<min then
                 begin
                   min:=a[i];
                   imin:=i;
                 end;
  end;
if (imax>imin) then
                 for i:=imin+1 to imax-1 do a[i]:=0
               else
                 for i:=imax+1 to imin-1 do a[i]:=0;
for i:=1 to n do write(a[i]:4);
end.

Добавлено через 1 минуту
Решение Ваше, условие левое.

@гошанчик · 22.12.2010, 21:48 **[ТС]**

спасибо

@гошанчик 33 / 33 / 0 Регистрация: 22.12.2010 Сообщений: 140
		1
	Обнулить элементы массива между минимальным и максимальным его элементом 22.12.2010, 21:23. Показов 1684. Ответов 2 Метки нет (Все метки) Дан массив размера N, обнулить элементы массива между минимальным и максимальным его элементом (не включая минимальный и максимальный элемент) 0

@гошанчик 33 / 33 / 0 Регистрация: 22.12.2010 Сообщений: 140
	22.12.2010, 21:48 [ТС]	3
	спасибо 0

Опции темы