Предмет:
ИнформатикаАвтор:
clarence96var
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.
Автор:
guyДобавить свой ответ
Предмет:
МатематикаАвтор:
elisechapmanОтветов:
Смотреть
Предмет:
Українська моваАвтор:
románfro0Ответов:
Смотреть
Предмет:
Английский языкАвтор:
jaylens50oОтветов:
Смотреть
Предмет:
МатематикаАвтор:
christopher3xkeОтветов:
Смотреть