Дано програму: var a: array [1..8] оf integer; m, k: integer; begin {…} m : = a[1]; for k : = 2 to 8 do if m < a[k] then m : = a[k]; {…} скільки разів буде виконаний оператор m : = a[k] для масиву (3, 8, 7, 9, 4, 10, 2, 12)? встановіть відповідність між операторами (1–4) та їх призначенням (а–г). 1 for i : = 1 to 10 do if a[i]< 0 then s : = s + a[i] 2 к : = 0; for i : = 1 to 10 do if a[i]< 0 then к : = к + 1 3 for i : = 1 to 10 do if a[i]< 0 then listbox1.items.add (inttostr( 4 for i : = 1 to 10 do if a[i]< 0 then а[i]: = 0 а знаходження суми від’ємних елементів масиву б виведення від’ємних елементів масиву у поле списку listbox1 в заміна нулями від’ємних елементів масиву г визначення кількості від’ємних елементів масиву встановіть відповідність між операторами (1–4) та їх призначенням (а–г). (кількість ів 2.00) 1 for i : = 1 to 10 do s : = s + a[i] 2 for i : = 1 to 10 do а[i] : = random(10)+5 3 var a: array[1..10] of real 4 for i : = 1 to 10 do а[i] : = а[i]*2 а подвоєння значень елементів масиву б заповнення масиву випадковими числами в діапазоні [5; 14] в знаходження суми елементів масиву г оголошення масиву 10 дійсних чисел які і належать до на змінювання значень елементів масиву? позначте всі правильні відповіді. а подвоєння значень елементів масиву б визначення найбільшого елемента масиву в заміна від’ємних елементів масиву нулем г знаходження суми додатних елементів масиву які і належать до на змінювання значень елементів масиву? позначте всі правильні відповіді. а подвоєння значень елементів масиву б визначення найбільшого елемента масиву в заміна від’ємних елементів масиву нулем г знаходження суми додатних елементів масиву дано масив: визначте результат виконання фрагмента програми: s : = 0; for i : = 1 to 5 do if a[i] < 6 then s : = s + a[i]; позначте одну правильну відповідь. а 17 б 29 в 8 г 14
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}
Приведём все степени к основанию 2
2^3702-2^468+2^1620-108
-108 можно представить как -128 + 16 + 4
2^3702-2^468+2^1620-2^7 + 2^4 + 2^2
Теперь выстраиваем степени в порядке убывания:
2^3702+2^1620-2^468-2^7 + 2^4 + 2^2
В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468
2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2
2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица
Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111
2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615