PascalABC.NET 3.2:
begin
Println('Исходный массив:');
var A := ArrRandom(30, -50, 50).Println;
var m := A.Max;
Println('Максимум равен', m);
Println('Изменённый массив:');
A.Select(x -> x + m).Println;
end.
Пример вывода:
Исходный массив:
-47 -34 -25 -42 -38 38 -32 42 21 -25 9 -41 -49 9 12 -3 37 38 20 -36 -42 42 37 6 37 -41 -44 -19 23 8
Максимум равен 42
Изменённый массив:
-5 8 17 0 4 80 10 84 63 17 51 1 -7 51 54 39 79 80 62 6 0 84 79 48 79 1 -2 23 65 50
1-корпус
2-блок питания
3 - процессор с кулером
4 вентилятор
5 ОЗУ
6 видеокарта
7 сетевая карта
8 звуковая карта
9 дисковод СD - DVD
10 дисковод для дискет
11 винчестер
12 материнская плата
101000₂% = 40₁₀% девочек.
1111₂ = 15₁₀ мальчиков.
Пусть в классе всего n учеников, тогда девочек в нем 0.4n, а мальчиков - остальные 0.6n, что составляет 15 человек.
0.6n=15 ⇒ n=15/0.6 = 25
Ответ: 25 человек
<span>var n:integer;
begin
writeln("Введите пятизначное число :");
ReadLn(n);
if ((n div 10000)=(n mod 10)) and
(((n div 1000) mod 10)=((n mod 100) div 10))
then
writeln('---Введенное Число ПАЛЕНДРОМ---')
else
writeln('</span>---Введенное Число не является Палендромом---<span>');
Readln;
end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
