Gollum » 10 янв 2018, 01:50
PascalABC.NET
Дан целочисленный вектор а(n).Найти наименьшее из четных чисел,определить его индекс и поменять местами с макс. элементом.Вывести исходный вектор,полученный результат и преобразованный вектор.
Вот что получилось у меня.Объясните,что не так,пожалуйста.
Код: Выделить всё
program zadanie2;
const n=10;
var a: array[1..n] of integer;
i,min,max,minind,z: integer;
begin
min:=maxint;
writeln('Введите ',n,' элементов массива:' );
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 2=0)and(a[i]<min) then
begin
min:=a[i];
minind:=i;
end;
writeln('Минимальный четный элемент: ',min);
writeln('Индекс минимального четного элемента: ',minind);
max:=a[i];
for i:=2 to n do
if a[i]>max then max:=a[i];
Writeln('Максимальный элемент массива:',max);
i:=min;
min:=max;
max:=i;
for i:=1 to n do
write(a[i],' ');
end.
[ATTACH]2451[/ATTACH]
PascalABC.NET
Дан целочисленный вектор а(n).Найти наименьшее из четных чисел,определить его индекс и поменять местами с макс. элементом.Вывести исходный вектор,полученный результат и преобразованный вектор.
Вот что получилось у меня.Объясните,что не так,пожалуйста.
[code]program zadanie2;
const n=10;
var a: array[1..n] of integer;
i,min,max,minind,z: integer;
begin
min:=maxint;
writeln('Введите ',n,' элементов массива:' );
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i] mod 2=0)and(a[i]<min) then
begin
min:=a[i];
minind:=i;
end;
writeln('Минимальный четный элемент: ',min);
writeln('Индекс минимального четного элемента: ',minind);
max:=a[i];
for i:=2 to n do
if a[i]>max then max:=a[i];
Writeln('Максимальный элемент массива:',max);
i:=min;
min:=max;
max:=i;
for i:=1 to n do
write(a[i],' ');
end.[/code]
[ATTACH]2451[/ATTACH]