var x,y,z:real;
begin
readln(x,y,z);
if (x<y+z) and (y<x+z) and (z<x+y) then begin
if (x=y) and (y=z) then writeln('Ravnostoronnii') else writeln('Ne ravnostoronnii');
end else writeln('Ne vozmojno sostavit');
end.
Это программа определяет минимальный элемент в массиве
Элементов всего 8
Изначально считается минимальным первый элемент т. е 3
Далее идет проверка в
Первый элемент проверяется со вторым ( 3 < 8) да один раз выполняет
ся , минимальным считается значение массива равное 3
Следующая проверка ( 3< 7) да втрой раз выполняется
Запоминается 3 и т.д .
3 будет меньше 8, 7,9, 4, 10, ( Итого пять раз)
Предпоследнее действие 3 сравнивается с 2 ( условие ложно) не выполняется( не подсчитывается)
И последний проход 3< 12 ( да, истинно) подсчитывается
Итого 6 раз
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Первый вариант - функциональный, второй - процедурный.
Рекомендую функциональный, потому что процедурный вариант жуткий щиткод и кринж, да и питон сам по себе язык функциональный. Удачи.
Ответ:
a = list(str(input()).split())
z = int(a[0])
e = int(a[1])
b = (input().split())
c = sum(map(int, b ))
if c%e > 0:
x = c//e + 1
else:
x = c//e
print (x)
Объяснение: