// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.
var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
<span>end.</span>
65536 байт - 64 КБ
1 байт - это 1024 кб
65536 : 1024 = 64 КБ
<span>а) A2:B10
Тут строки от 2 до 10 (всего 9) и колонки от А до В (всего 2).
Они образуют 9 х 2 = 18 ячеек.
</span>б) C13:E20
<span>Тут строки от 13 до 20 (всего 8) и колонки от С до Е (всего 3).
Они образуют 8 х 3 = 24 ячейки.</span>