Подскажите пожалуйста, где я ошиблась в решении этой задачи: Дан массив А размера N. Найти минимальный элемент из его элементов с четными номерами.
var
a: array of integer;
i,m,n: integer;
begin
readln (n);
setlength ( a, n);
for i:=0 to n-1 do
read (a[i]);
m:=a[0];
for i:=1 to n-1 do
if ( i mod 2=0 ) and ( a[i] ) then
m:= a[i];
writeln (m)
end.
var
a: array of integer;
i,m,n: integer;
begin
readln (n);
setlength ( a, n);
for i:=0 to n-1 do
read (a[i]);
m:=a[0];
for i:=1 to n-1 do
if ( i mod 2=0 ) and ( a[i] ) then
m:= a[i];
writeln (m)
end.
More Questions From This User See All
Answers & Comments
var
A: array[1..255] of integer;
N, i, min, k: byte;
begin
writeln(' Массив какого размера вы хотите задать? ');
write(' N = ');
readln(N);
writeln(' Введите ', N, ' элементов массива(через пробел):');
write(' ');
for i := 1 to N do
read(a[i]); //Вводим элементы массива
N := N div 2; //Количество четных номеров массива.
min := a[2]; //Минимальный элемент
k := 2; //и его начальный номер.
for i := 2 to N do
if a[2 * i] < min then //Если находится элемент меньше min,
begin
min := a[2 * i]; //то он становится минимальным.
k := 2 * i //Запоминаем номер минимального элемента.
end;
write(' Минимальный элемет среди четных');
writeln(' номеров равен: a[', k, '] = ', min)
end.