1.
var a:array [1..15] of integer;
i:integer;
begin
for i:=1 to 15 do a[i]:=i*2;
write (a)
end.
2.
var a:array [1..10] of integer;
i:integer;
begin
writeln ('Введите 10 элементов массива через пробел.Потом нажмите Enter.');
for i:=1 to 10 do read(a[i]);
write ('Элементы с нечётными индексами: ');
for i:=1 to 10 do if i mod 2 <> 0 then write (a[i],' ');
writeln;
write ('Элементы с чётными индексами: ');
for i:=1 to 10 do if i mod 2 = 0 then write (a[i],' ')
end.
1) 0, 1, 2, 3, 4, 5, 6, 7, 8
2) 1, 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16, 17, 18, 20, 21
3) 68, <span>51.75
4) </span><span>300202
5) </span>76.63, <span>3E.CC
</span><span>111000110001.000001
</span><span>111001.011000101
</span>6) 100100
1110
открыть сайты с переводом сс не так уж и сложно
1)var k,n,a:integer;
begin
readln(k,n);
for a:=1 to n do
writeln(k);
end.
2)var a:integer;
begin
for a:=10 to 99 do
if (a mod 4=0) and (a mod 6<>0) then writeln(a);
end.
Адрес не меняется при абсолютной адресации, для этого перед номером строки или буквой столбца ставят знак $.
Правильного ответа нет, т.к. ответы 13B и D некорректны, ссылка F17 относительная (будет изменяться и номер строки и буква столбца), в ответах $C30 и <span>$A15 абсолютные столбцы, а не строки, то есть строки будут меняться.
Верного ответа нет.</span>