Nuanius
7 год назад
Задан одномерный числовой массив размерностью n элементов. Найти наименьший нечетный элемент.
ОТВЕТЫ
Кузьма
Aug 13, 2019
Const n = 20;
var a: array[1..n] of integer;
i,k,minel: integer;
begin
//заполнение массива
//и вывод массива на экран
randomize;
writeln(элементы массива:);
for i:=1 to n do
begin
a[i]:=random(50)-30;
write(a[i], );
end;
writeln;
//обработка массива и вывод на экран
minel:=a[1];
for i:=2 to n do
if (a[i]lt;minel) and (abs(a[i]) mod 2 gt; 0) then
begin
minel:=a[i];
k:=i;
end;
writeln(номер элемента: ,k, значение: ,minel);
end.
var a: array[1..n] of integer;
i,k,minel: integer;
begin
//заполнение массива
//и вывод массива на экран
randomize;
writeln(элементы массива:);
for i:=1 to n do
begin
a[i]:=random(50)-30;
write(a[i], );
end;
writeln;
//обработка массива и вывод на экран
minel:=a[1];
for i:=2 to n do
if (a[i]lt;minel) and (abs(a[i]) mod 2 gt; 0) then
begin
minel:=a[i];
k:=i;
end;
writeln(номер элемента: ,k, значение: ,minel);
end.
62
