1 Дан целочисленный массив из 10 элементов, все элементы которого – целые числа в интервале от -500 до 500. Опишите на одном из языков программирования алгоритм, который находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент Гарантируется, что первый элемент массива положительный. Массив заполнен случайными числами. 2 Дан целочисленный массив из 10 элементов. Элементы массива могут принимать целые значения от -10 до 90. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести сумму элементов массива, нечетных и кратных тринадцати. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого делится на тринадцать. 3 Дан целочисленный массив из 5 элементов. Элементы массива могут принимать целые значения от -15 до 50. Опишите на одном из языков программирования алгоритм, позволяющий найти и вывести минимальный элемент массива.
Ответы
Судя по всему, здесь в цикле складываются квадраты всех нечетных чисел от m до n включительно.
m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)
Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.
Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)
i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.
m & 1 - это битовая конъюнкция. Результатом будет 1, если m нечетное, и 0, если m - четное (то есть, содержит или не содержит соответствующий разряд)
Выражение вида T ? X : Y, где T - логическое высказывание, принимает значение X, если T истинно, и Y, если T ложно.
Соответственно, i = (m & 1) == 1 ? m : m + 1 означает, что
если m нечетное, то i = m
если четное, i = m+1 (то есть, первое нечетное число после m)
i += 2 означает, что цикл идет с шагом, соответственно, рассматриваются только нечетные числа.
Const
n = 20;
var
pos,neg: integer;
i,k,x: integer;
ev,un: integer;
a,b: array [1..n] of integer;
begin
for i := 1 to n do
read(a[i]);
k := 0;
pos := 0;
neg := 0;
for i := 1 to n do
begin
ev := 0;
un := 0;
x := a[i];
if x <> 0 then
if x > 0 then
if (x < pos) or (pos = 0) then
pos := x
else
else
if (x > neg) or (neg = 0) then
neg := x;
x := abs(x);
while x <> 0 do
begin
if odd(x) then
un := un + 1
else
ev := ev + 1;
x := x div 10
end;
if un = ev then
begin
k := k + 1;
b[k] := a[i]
end
end;
writeln(pos,' ',neg);
for i := 1 to k do
write(b[i],' ')
end.
n = 20;
var
pos,neg: integer;
i,k,x: integer;
ev,un: integer;
a,b: array [1..n] of integer;
begin
for i := 1 to n do
read(a[i]);
k := 0;
pos := 0;
neg := 0;
for i := 1 to n do
begin
ev := 0;
un := 0;
x := a[i];
if x <> 0 then
if x > 0 then
if (x < pos) or (pos = 0) then
pos := x
else
else
if (x > neg) or (neg = 0) then
neg := x;
x := abs(x);
while x <> 0 do
begin
if odd(x) then
un := un + 1
else
ev := ev + 1;
x := x div 10
end;
if un = ev then
begin
k := k + 1;
b[k] := a[i]
end
end;
writeln(pos,' ',neg);
for i := 1 to k do
write(b[i],' ')
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Файлы в програмировании ( напишите текст для реферата)
Автор: lbeglarova6
Дана сторона квадрата . найдите его площадь и периметр
Автор: Николаевич-Анатольевич599
Запишит число в развёрнутой форме 12, 346’16
Автор: xeniagolovitinskaya4546
Число 124 перевести в десятичную систему исчисления
Автор: violettamakhina2537
Если че питон)
Числа вводятся в одну строчку через пробел
1)
a=[int(i) for i in input().split()]
count=0
suma=0
for i in a:
if i % a[0]==0:
count+=1
suma+=i
print(suma/count)
2)
a=[int(i) for i in input().split()]
suma=0
for i in a:
if i%2==1 or i%13==0:
suma+=i
print(suma)
3)
print(min(map(int,input().split(