При выполнении разных операций с массивами, получается так, что первый элемент является нулевым

@Sethliwe · Регистрация: 28.11.2013

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

Доброго времени суток.
Можете помочь? Проблема в том, что иногда, при выполнении разных операций с массивами, получается так, что первый элемент является нулевым. К примеру в программах по поиску индекса максимального/минимального. Подскажите как это исправить?

Еще было бы хорошо, если бы мне помогли с программой, в которой нужно поменять местами максимальный с минимальным, соответственно используя их индексы.

Pascal

const n=10;
var a:array[1..n] of integer;
i,max,min,nummax,nummin:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do begin
                 a[i]:=random(20)-5;
                 write(a[i]:4);
                 end;
max:=1; min:=1;                 
for i:=1 to n do
if a[i]>max then begin
                 max:=a[i];
                 nummax:=i;
                 end;
for i:=1 to n do
if a[i]<min then begin
                 min:=a[i];
                 nummin:=i;
                 end;
{Поменять местиами максимальный элемент с минимальным}
writeln;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
end.

@Puporev · 06.12.2013, 08:38

По поводу ошибки нужно смотреть конкретный код, где она возникает.

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,max,min,x:integer;
begin
clrscr;
randomize;
writeln('Array:');
for i:=1 to n do
 begin
  a[i]:=random(20)-5;
  write(a[i]:4);
 end;
writeln;
max:=1; min:=1;
for i:=1 to n do
if a[i]>a[max] then max:=i
else if a[i]<a[min] then min:=i;
writeln('Max element a[',max,']=',a[max],' min element a[',min,']=',a[min]);
x:=a[max];
a[max]:=a[min];
a[min]:=x;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
readln
end.

@markiza-inc · 06.12.2013, 08:49

Самая частая ошибка:

Сообщение от Sethliwe

max:=1; min:=1;

должно быть:

max:=a[1]; min:=a[1];

Если исправлять Вашу, Sethliwe, то полагаю, так:

Pascal

const n=10;
var a:array[1..n] of integer;
i,max,min,nummax,nummin,tmp:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do begin
                 a[i]:=random(20)-5;
                 write(a[i]:4);
                 end;
max:=1; min:=1;                 
for i:=1 to n do
if a[i]>max then begin
                 max:=a[i];
                 nummax:=i;
                 end;
for i:=1 to n do
if a[i]<min then begin
                 min:=a[i];
                 nummin:=i;
                 end;
{Меняем местиами максимальный элемент с минимальным}
tmp:=a[nummin];a[nummin]:=a[nummax];a[nummax]:=tmp;
writeln;
writeln('Max switched with min');
for i:=1 to n do
write(a[i]:4);
end.

Про повторы минимумов и максимумов в условии ничего не сказано.

	06.12.2013, 08:49