<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -10, 10);
a.Println;
var i := a.IndexMax;
Writeln('максимальный a[', i + 1, ']=', a[i]);
i := a.IndexMin;
Writeln('минимальный a[', i + 1, ']=', a[i])
end.
<h2>-2 0 -3 0 3 -2 1 -9 -9 -2</h2><h2>максимальный a[5]=3</h2><h2>минимальный a[8]=-9</h2>
Program b_3;
const Pi=3.1415926;
var R,S,C:real;
begin
write('введите радиус окружности');
readln(R);
C:=2*Pi*R;
S:=Pi*R*R;
writeln('длина окружности=',C:6:2);
writeln('площадь круга=',S:6:2);
End.
Устройства долговременное памяти:
Флеш-накопитель, лазерный диск, внешний твердотельный накопитель.
Ответ: 1, 2, 4
Устройства ввода:
Сканер, клавиатура, мышь.
Ответ: 1, 3, 7
Если b^n=1, тогда b всегда равно 1(1 в любой степени равна 1), либо <span>ответ</span> 1, либо неправильно сформулировано задание. Поправьте если не так.
Корневой каталог - "высший" каталог данного диска, т.е. D:\
D:\123.txt