<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := ReadInteger('Количество элементов в массиве:');
var a := ArrGen(n, i -> i.IsEven ? 2 * i + 3 : 1);
a.Println
end.
<h3>Количество элементов в массиве: 13</h3><h3>3 1 7 1 11 1 15 1 19 1 23 1 27</h3>
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
Вариант значения D и работы алгоритма:
D := 40
40 > 30 (Да)
Y := 40
Смотри картинку
1 - регистр
2 - кэш
3 - SSD
4 - HDD
5 - Ethernet
6 - WiFi