нет, у египтян не писались гласные звуки
Ошибка в задании недопустимых исходных данных. Аргументы функций ln() и sqrt() не должны быть отрицательными.
Var
i,s:integer;
a:array[1..15] of integer;
begin
randomize;
for i:=1 to 15 do
begin a[i]:=random(21);
write(a[i],' ');
if a[i]<=10 then s:=s+a[i]
end;
writeln('Сумма ',s)
<span>end.</span>
<span>- Общее имя и один тип.</span>
Операторы цикла while и repeat<span> используются тогда, когда заранее не известно общее количество итераций (повторений вычислений) цикла, а завершение вычислений зависит от некоего условия. Если условие ставится вначале цикла (на входе), то используется оператор While, если на выходе – Repeat. Дальше решить не могу, но вот определение.</span>