Program massiv;
var <span> mass = array [1..15] of integer;</span><span>
i, max, n_max: integer;</span>
begin<span>
{заполнение массива}
</span><span> for i:= 1 to 15 do mass[i] = (random(32)-15) * 3;</span><span>
max := 0;
</span><span> n_max := 0;
</span><span> {нахождение максимума, вывод на экран}
</span><span> for i:= 1 to 15 do</span><span>
begin</span><span>
if mass[i] > max then</span><span>
begin</span><span>
max := mass[i];
</span><span> n_max := i;</span><span>
end;</span><span>
write(mass[i], ' ');</span><span>
end;</span><span>
writeln('Индекс максимального: ', n_max);
</span><span>end.</span>
Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705
1. Начало
2. Ввод числа a
3. a>0
4. налево a=a+1 , направо a<0 ( налево a=a-2, направо a=10)
5. Вывод а
6. Конец
Мне кажется, что это слово <u>ФРАГМЕНТ</u>
PascalABC.NET
1)
var
a:String = 'лекарство';
b,c,d:String;
begin
b:= copy(a,1,2);
c:= copy(a,7,1)+copy(a,9,1);
d:= copy(a,8,2);
WriteLn(b+c);
WriteLn(b+d);
end.
2)
var a:String = 'нитка';
begin
WriteLn(a);
a:= a.Replace('ит','ер');
WriteLn(a);
a:= a.Replace('е','о');
WriteLn(a);
a:= a.Replace('нор','кри');
WriteLn(a);
a:= a.Replace('рик','ниг');
WriteLn(a);
a:= a.Replace('кни','пур');
WriteLn(a);
end.
3)
var a,b,c,d,e,f:String;
begin
a:='кормила';
b:='ку';
c:='ка';
d:='ш';
e:='он';
f:=' ';
WriteLn(b+b+d+c+f+a+f+b+b+d+e+c);
end.