Помогите, пожалуйста!
заполнить массив из 9 элементов случайными числами в интервале в интервале [10,150] и найти min элемент массива, у которых вторая с конца цифра- нечетная
Ответы
Ответ дал:
0
Pascal
const n = 9;
var
i,min,b : integer;
a : array [1..n] of integer;
begin
for i := 1 to n do
a[i] := 10 + random (141);
min := 151;
for i := 1 to n do
begin if a[i] < min then
begin
if a[i] div 100 > 0 then
b := ((a[i] div 10) - (a[i] mod 10)) div 10
else b := a[i] div 10;
if b mod 2 = 1 then
min := a[i];
end;
end;
if min = 151 then
writeln ('not found')
else writeln (min);
end.
const n = 9;
var
i,min,b : integer;
a : array [1..n] of integer;
begin
for i := 1 to n do
a[i] := 10 + random (141);
min := 151;
for i := 1 to n do
begin if a[i] < min then
begin
if a[i] div 100 > 0 then
b := ((a[i] div 10) - (a[i] mod 10)) div 10
else b := a[i] div 10;
if b mod 2 = 1 then
min := a[i];
end;
end;
if min = 151 then
writeln ('not found')
else writeln (min);
end.
Вас заинтересует
1 год назад
9 лет назад
9 лет назад
9 лет назад