0..32 - это управляющие символы (\n, \t, \0, etc)
33..127 - это изображаемые символы (A, z, +, *, etc)
<h2>Ответ</h2>
Управляющий
1. 2 Массивы объявляются тем же оператором, что и обычные переменные
2. Не корректный вопрос: индекс - это способ обращения к определенному элементу массива, а у самого массива индекса нет. В вариантах ответа ничего похожего на это нет.
3. 4 Массивы заполняются теми же операторами, что и обычные переменные
4. 1 Есть такой способ ввода в бейсике - конструкция READ DATA
5. 1 Выведется четвертый элемент массива, т.к. нумерация идет с нуля, и первый имеет номер 0, второй - 1, третий - 2, а четвертый - номер 3, который и запрашивается в выражении <span>А(3)</span>
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var s1:=new Stack<integer>;
var s2:=new Stack<integer>;
foreach var e in Range(1,10) do s1.Push(e);
s1.Println;
foreach var e in Range(20,25) do s2.Push(e);
s2.Println;
foreach var e in s2.Reverse do s1.Push(e);
s1.Println
end.
<u><em>Тестовое решение:</em></u>
10 9 8 7 6 5 4 3 2 1
25 24 23 22 21 20
25 24 23 22 21 20 10 9 8 7 6 5 4 3 2 1
Если цепочки две, то выводится ближайшая. Пойдет?
//t1.txt должен быть в папке с программой
//Pascal
var
f: text;
numValue, Counts, n, c, t, i: integer;
begin
assign(f, 't1.txt');
reset(f);
Counts := 0;
c := 0;
while not eof(f) do
begin
readln(f, n);
if (c = 0) or (n = t) then
c := c + 1
else
c := 1;
t := n;
if c > Counts then
begin
Counts := c;
numValue := n
end
end;
close(f);
assign(f, 't2.txt');
rewrite(f);
writeln('Длина цепочки: ', Counts);
for i := 1 to Counts do
writeln(f, numValue);
close(f)
end.
<h2>1.</h2>
program raf105;
var a:array[1..3,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите 9 чисел по очереди');
x:= 1;
for i:=1 to 3 do
for j:=1 to 3 do
begin
readln(a[i,j]);
if (a[i,j] < 0) and (a[i,j] > -14)
then x *= a[i,j];
end;
writeln('Вывод: ',x);
end.
<h2>2.</h2>
program raf105;
var a:array[1..10] of integer;
n,i,x:integer;
begin
writeln('Вводите 10 чисел по очереди: ');
x:= 1;
for i:=1 to 10 do
begin
readln(a[i]);
if ((a[i] mod 5) = 0) and (a[i] <> 0)
then x *= a[i];
end;
writeln('Введите число от 1 до 10');
readln(n);
a[n] := x;
writeln(n,'-й элемент массива заменён на число ',x);
for i:=1 to 10 do
writeln(a[i]);
end.
<em><u>Язык PascalABC</u></em>
