В Юникоде = 512 символов;
В любой другой обычно 1024 символов.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
var
a:array[1..10] of integer;
b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(b[i]);
a[i]:=b[i]*45
end;
for i:=1 to 9 do
write(a[i],' ');
write(a[10])
end.
var
c, k, n: integer;
begin
writeln('Введите процент: ');
readln(n);
while k < 100 do
begin
k := k + n;
inc(c);
end;
writeln(c * 12, ' мес.');
<span>end.</span>
Program E2_1;
Сколько раз будет выполнен оператор M := a[k]
при заданном массиве (3, 8, 7, 9, 4, 10, 2, 12)?
Ответ: 4 раза, т.к. условие
if M < a[k]
выполнится при a[k]=8, 9, 10, 12
------
Program E2_2;
в записи оператора s := s + a[k] была допущена ошибка - вместо него был записан оператор s := s + 1. Каким оказался ответ после исполнения неверной программы, если в качестве элементов массива были введены числа (-1, 3, -2, 4, -5, 6, -7, 8)?
Ответ: s = 4, т.к. условие
if a[k] < 0
выполнится при a[k]=-1, -2, -5, -7
---------
Какие значения примут элементы массива A[3] и A[4] после выполнения последовательности операторов, если первоначально
A[3]:=5;
A[4]:=6;
A[3]:=A[4];
A[4]:=A[3]?
Ответ:
A[3] = 6;
A[4] = 6;
-----------
В представленном фрагменте программы значения одномерного массива задаются с помощью оператора цикла. Чему будет равно A[5]?
For i := 1 To 5 Do Begin
A[2*i - 1] := i;
A[2*i] := i*i
End.
Элементу A[5] присвоит значение строка
A[2*i - 1] := i;
i при этом будет равно 3.
Ответ: A[5] = 3