Ответ:
var
ar: array [1..20] of Integer;
a, b, i: Integer;
begin
Randomize;
for i := Low (ar) to High (ar) do begin
ar [i] := Random (47) - 12;
Write (ar [i], ' ');
end;
WriteLn;
Write ('A, B = ');
ReadLn (a, b);
for i := Low (ar) to High (ar) do
if (ar [i] >= a) and (ar [i] <= b) then
Write (ar [i], ' ');
ReadLn;
end.
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('Введите строку:');
var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
var m:=s.Length-n;
if m>n then Writeln('В строке букв меньше иных символов')
else
if m<n then Writeln('В строке букв больше иных символов')
else Writeln('В строке поровну букв и иных символов')
end.
<u>Примеры</u>
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов
Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
a.Println;
var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
var ip:=a.FindIndex(x->x>0)+1;
Writeln('Номер максимального по модулю элемента: ',imax+1);
Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.
<u>Пример</u>
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7
Div - целая часть от деления
mod - остаток от деления
<span>391 div 100 = 3
(391 mod 100) div10 = 91 div 10 = 9
391 mod 10 = 1
</span><span>391 div 100+(391 mod 100)div10 +391mod 10 = 3+9+1 = 13</span>
