Решаем задачи Абрамян на Паскале. Array74

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

Решение:

program Array74;
var
  a : array[1..10] of integer;
  N,Amin,Amax,i:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;


  Amax:=1;
  for i:=1 to N do if a[Amax]<a[i] then Amax:=i;
  Amin:=Amax;
  for i:=1 to N do if a[Amin]>a[i] then Amin:=i;

  if Amin<Amax then for i:=Amin+1 to Amax-1 do a[i]:=0
  else for i:=Amax+1 to Amin-1 do a[i]:=0;


  for i:=1 to N do writeln(i,' :',a[i]);
end.

program Array74;

var

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

N,Amin,Amax,i:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

Amax:=1;

for i:=1 to N do if a[Amax]<a[i] then Amax:=i;

Amin:=Amax;

for i:=1 to N do if a[Amin]>a[i] then Amin:=i;

if Amin<Amax then for i:=Amin+1 to Amax-1 do a[i]:=0

else for i:=Amax+1 to Amin-1 do a[i]:=0;

for i:=1 to N do writeln(i,' :',a[i]);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array74

Комментарии:

Добавить комментарий Отменить ответ