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

Array68. Дан массив размера $$N$$. Поменять местами его минимальный и максимальный элементы.

Решение:

program Array68;
uses
  SysUtils;

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;

  i:=a[Amax];
  a[Amax]:=a[Amin];
  a[Amin]:=i;

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

program Array68;

uses

SysUtils;

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;

i:=a[Amax];

a[Amax]:=a[Amin];

a[Amin]:=i;

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

end.

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

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

program abc;  
var i,k,min,max:integer;
a:array[1..8] of integer;

Begin
for i:=1 to 8 do
begin
 read(a[i]);
 if i=1 then begin min:=a[1];max:=a[1]; end;
 if a[i]max then max:=a[i];
end;
writeln;
for i:=1 to 8 do
if a[i]=min then a[i]:=max else
 if a[i]=max then a[i]:=min;
 


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

program abc;

var i,k,min,max:integer;

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

Begin

for i:=1 to 8 do

begin

read(a[i]);

if i=1 then begin min:=a[1];max:=a[1]; end;

if a[i]max then max:=a[i];

end;

writeln;

for i:=1 to 8 do

if a[i]=min then a[i]:=max else

if a[i]=max then a[i]:=min;

for i:=1 to 8 do

write(a[i],' ');

end.

Ответить

Bronislav

03.08.2018 в 18:15

А если минимальный и максимальный элементы массива не уникальны, тогда менять все на все или первый на первый, или… догадайся сама, короче.

Ответить

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

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

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

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