Const Sz = 100; // Размер массива
var
a: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
k,i: integer;
begin
N := 17;
for i:=1 to N do
a[i] := Random(30)-15;
for i:=1 to N do
begin
if (a[i] mod 2)<>0 then
writeln (a[i], ' ', i);
end;
end.
13. <span>Вычисления делать разные. Бухгалтером будеш если, будеш его изучать. А функции помогут вычислить всякие налоги, зарплату и т. д.
</span>
<span>В Древней Индии писали на камне и листьях пальмы. Листья пальмы высушивали и нарезали длинными, узкими пластинами. На пальмовых листьях писали чернилами из сажи, разведенной в подслащенной воде </span>
<span>Если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. Пальмовые листы находились между двумя дощечками, как книга в переплете. Иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой.</span>
Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ
Readln как и read вводит переменную командой read (x); также и readln (x); но перед этим надо в var внести переменную x