1. Створити масив із 10 цілих чисел, що уведені з клавіатури. Кожен 2-1 елемент масиву обнулити. На екран вивести даний масив та змінений масив. 2. Масив із 15 цілих чисел заповнити випадковими числами із різними знаками. Знайти суму елементів масиву, що не перевищують 1. Вивести на екран сформований масив та знайдену суму.
3. Масив містить 15 членів послідовності, найбільший елемент якої дорівнює 15,5. Кожен наступний елемент менший на одне й теж число 2,5. Сформований масив надрукувати. Знайти кількість додатних членів такої послідовності.
4. Дано масив a1=[-1, 0, 1, -2, 0, 2 -3, 0, 3,-4, 0, 4]. Усі від’ємні елементи замінити числом 10, а усі додатні – числом 20. Підрахувати кількість замін та вивести цю кількість на екран. Даний масив і змінений масив надрукувати.
Системное ПО обеспечивает работу компьютера (загрузка ядра, драйверов, проверка портов, синхронизацию устройств и протоколов передачи данных, чтение, передачу данных, осуществляют слежение за устройствами ввода-вывода и реагируют на команды с них и т. д.) . Прикладные программы используют системное ПО, но выполняют действия и функции не влияющие на систему, а имеющие прикладное значение (просмотр и обработка видео, математические вычисления, запись на внешние носители, игры...).
Объяснение:
незнаю проавельный это ответ или нет
1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190 -> 4095
5. 0..4094 -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
begin
writeln(k,' ',l,' ',r,' ',x);
k := k + 1;
if f < x then r := x - 1
else l := x + 1;
x := (l + r) div 2
end;
writeln(k,' ',l,' ',r,' ',x);
end.