При выполнении разных операций с массивами, получается так, что первый элемент является нулевым - Turbo 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. Код к задаче: «При выполнении разных операций с массивами, получается так, что первый элемент является нулевым - Turbo 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. 
6 голосов, оценка 4.500 из 5
СОХРАНИТЬ ССЫЛКУ