При таком наборе данных при вычислении значения s получается корень квадратный из отрицательного числа -29. Поэтому программа и выдает сообщение : Не число.
Набор данных некорректен.
<h2>Программа не будет работать без <u>ключевого слова алг</u> и <u>ключевого слова кон</u></h2>
Var
a: array[1..12] of integer;
i: integer;
begin
randomize;
for i:=1 to 12 do
a[i]:=random(12+12+1)-12; //Заполнение массива
writeln('Исходный массив: ');
for i:=1 to 12 do
write(' ',a[i],' '); //Вывод исходного массива
writeln(); //Для перехода на следующую строку
writeln('Результат: ');
for i:=4 downto 1 do
write(' ',a[i],' ');
for i:=8 downto 5 do
write(' ',a[i],' ');
for i:=12 downto 9 do
write(' ',a[i],' '); //Обратный цикли для каждой трети
<span>end.
</span>
(2/4)*(1/3)=2/12=1/6 - 2 девочки(2/4)*(1/3)=2/12=1/6 - 2 мальчика<span>(2/4)*(2/3)+(2/4)*(2/3)=4/12+4/12=8/12=2/3 - девочка и мальчик</span>
<span>Информация, представленная с помощью букв алфавита-это </span>Текстовая информация.