Немного исправил программу:
program Alex1;
var
a: array[1..10] of integer;
max, i: integer;
begin
for i := 1 to 10 do
read(a[i]);
writeln('Исходный массив');
for i := 1 to 10 do
write(a[i], ' ');
max := a[1];
for i := 2 to 10 do
if a[i] > max then max := a[i];
for i := 1 to 10 do
if a[i] < 0 then a[i] := max;
writeln;
writeln('Новый массив');
for i := 1 to 10 do
write(a[i], ' ');
<span>end.</span>
Если дрова осиновые
-> да -> положить в навес
-> нет -> если дрова березовые
-> да -> положить в камин
-> нет -> положить в поленницу
2+8 =10 - сума цифр
2×8=16 - произведение цифр
Program z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.
local password = ""
math.randomseed(os.time())
local sum = {"a", "b", "c", "d", "s", "w", "#", "S", "P", "R", "E", "q", "m"} --Тут символы которые будут встречаться в пароле
local countSum = 8 --длина пароля
for i = 1, countSum do
password = password..sum[math.random(1, #sum)]
end
print("Пароль: "..password)
Алгоритм таков:
Подбирается случайный символ из массива и складывается с другими символами, которые были уже сгенерированы.