Массив задан датчиком случайных чисел на интервале [-37, 66]. найти наименьший нечетный элемент. размер произвольный.
184
190
Ответы на вопрос:
const
n=15;
var
a: array [1..n] of integer;
i,min: integer;
begin
randomize;
for i: =1 to n do begin
a[i]: =random(104)-37;
write (a[i],' ');
end;
writeln;
min: =a[1];
for i: =2 to n do
if (odd(a[i])=true) and (a[i]< min) then min: =a[i];
writeln (min);
readln;
end.
a b b& a av(b& a) b& b (av(b& a))v(b& b)
0 0 0 0 0 0
0 1 0 0 1 1
1 0 0 1 0 1
1 1 1 1 1 1
Популярно: Информатика
-
Znoke9907.05.2023 23:06
-
Нака098704.01.2022 08:07
-
sasha1007200402.12.2020 00:59
-
BEKISKAKOV7520.12.2021 15:46
-
MarkKofe100012.02.2021 17:50
-
sbabean21903.10.2021 13:39
-
suchilinaelya08.11.2022 08:03
-
xach516.02.2022 08:45
-
Ylija200213.02.2023 11:11
-
Яприсоединилась29.12.2022 11:32