Немного исправил программу:
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>
<span><span>
Sin(x)
функция
<span>x - real,
</span></span><span>Cos(x)
функция
<span>x - real,</span></span></span>
<span>Отметь общие свойства, которыми обладают текстовая и графическая модель:
1) помогают хранить информацию об объекте (изображение и описание объекта хранят информацию: изображения – о внешнем виде, строении, описание – какую угодно)
2) имеют общий цвет и размер (у текста может быть какой угодно цвет и размер)
3) обладают свойством наглядности (текст не обладает)
4) используются для передачи информации об объекте (если передать изображение или описание объекта, получатель получит информацию об объекте)
Ответ: 1), 4)
</span>
1) ЭНЦИКЛОПЕЦИЯ КОРОЛЕВСТВО
там через каждую букву читать
2)Рибонуклеиновая кислота
Телефонный разговор