// PascalABC.Net
var arr: array [1..15] of integer;
count: integer;
begin
for var i:=1 to 15 do
arr[i]:=random(1, 300);
writeln('Исходный массив: ');
for var i:=1 to 15 do
write(arr[i], ' ');
writeln();
count:=0;
for var i:=1 to 15 do
if (arr[i] > 9) and (arr[i] < 100) then
count += 1;
writeln('Количество двузначных чисел: ', count);
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(18, 2, 9);
a.Println;
WriteFormat('S = {0:###}', a.Where(t -> t > 0).Sum)
end.
<h2>5 7 8 4 3 3 9 8 7 5 6 9 8 7 2 7 8 4</h2><h2>S = 110</h2>
а) Разбиваем буквы, составляющие слово, на пары и меняем их местами: урок;весна; каникулы; информация; мокрому дождь не страшен;
б) читаем слово справа налево: арена, корзина, рюкзак;
в) разбиваем слово на слоги и записываем каждый слог справа налево: канал, гитара,телевизор;
г) читаем слово через букву слева направо, а затем оставшиеся буквы справа налево:<span>балкон, вагон, кабинет.</span>