===== PascalABC.NET =====
begin
// 1
var a := ArrRandom(7, -4, 5);
a.Println;
// 2
var b := ReadArrInteger('Введи 8 чисел:', 8);
Println('Сумма четных:', b.Where(p -> p.IsEven).Sum);
var p := b.Where(p -> p > 4).DefaultIfEmpty.Product;
if p >0 then
Println('Произведение элементов, больших 4:', p)
else
Println('Нет элементов, больших 4');
// 3
var c := ArrRandom(10, -14, 7);
c.Println;
Print('Минимальный элемент, больший 5');
var m := c.Where(p -> p > 5).DefaultIfEmpty.Min;
if m = 0 then
Println('отсутствует')
else
Println('равен', m);
var im := c.IndexMin;
Println('Миниммальный элемент номер', im + 1, 'равен ', c[im])
end.
![Максимум ! написать программы на языке паскаль: 1) дан массив, заданный на интервале [-4; 5], состоя](/tpl/images/1046/1295/27fb7.jpg)
1) (А∧В)-конъюнкция-ложь
2) (С∨D)-дизъюнкция-истина
3) (А∧В)-конъюнкция-ложь
4) (В∧С)-конъюнкция-истина
5) (А∨В)-дизъюнкция-ложь
6) (С∧D)-конъюнкция-истина
7) А-инверсия-истина
8) В -инверсия-истина
Объяснение:
Дизъюнкция является ложной, только когда два утверждения ложные, в остальных случаях является истиной (то есть когда одно утверждение истина, а другое ложь то в итоге получается истина, а когда два утверждения ложь, то является ложью)
Конъюнкция является истиной только в случае, когда оба высказывания являются истинными (то есть если высказывания будут оба ложными то значение будет ложным, также если одно из высказываний будет ложным или истинным то значение высказывания будут ложным)
Инверсия обращает высказывание в противоположную сторону, истину - в ложь, а ложь - в истину.
91
- в двоичную
Делим число на 2 и выписываем остатки
91 = 45·2 + 1
45 = 22·2 + 1
22 = 11·2 + 0
11 = 5·2 + 1
5 = 2·2 + 1
2 = 1·2 + 0
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 1011011
- в восьмеричную
Делим число на 8 и выписываем остатки
91 = 11·8 + 3
11 = 1·8 + 3
Последний множитель перед 8 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 133
- в шестнадцатиричную
Делим число на 16 и выписываем остатки
91 = 5·16 + 11 (11 записывается как B)
Последний множитель перед 16 равный 5 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 5B
52
- в двоичную
Делим число на 2 и выписываем остатки
52 = 26·2 + 0
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + 1
Последний множитель перед 2 равный 1 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 110100
- в восьмеричную
Делим число на 8 и выписываем остатки
52 = 6·8 + 4
Последний множитель перед 8 равный 6 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 64
- в шестнадцатиричную
Делим число на 16 и выписываем остатки
52 = 3·16 + 4
Последний множитель перед 16 равный 3 записываем первым.
Затем записываем найденные остатки в обратном порядке.
Получаем: 34