// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

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>

0 0

4 года назад

1. В одной из кодировок Unicode каждый символ кодируется 16 битами. Кирилл написал текст (в нем нет лишних пробелов):«Близнецы,

ПАТРУШЕВА ЕЛЕНА

Кирилл удалил слово "Телец"

Объём оказался на 14 байт меньше, а 14 байт = 14 * 8 = 112 бит

Каждый символ кодируется 16 битами.

112 / 16 = 7

Значит, 7 символов у нас удалены.

Слово "телец" в месте с пробелом и запятой будет занимать 7 символов.

0 0

4 года назад

По программе Pascal.1)Напишите программу определяющую средний балл учащихся группы.Программа должна спрашивать:₋ сколько в групп

Olga VX [12]

Program next;
var a,b,c,i,g,o:integer;
begin
g:=0;
b:= 0;
writeln('Сколько учахщихся?');readln(a);
for i=0 to a do
writeln('Средний бал у ',i,' ученика:');readln(c);
g:= g+c;
end;
o:= g/a;
writeln('Средний балл учащихся',o);
readln;
end.

0 0

4 года назад