var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*3.14*r:0:3);
end.
<span>* Так как нужно найти количество последовательностей, содержащих ровно 3 буквы А, то отбрасываем А при подсчете:
3 - 1 = 2.
* Остается две буквы: Б и В, которые могут дать следующие последовательности:
ББ
БВ
ВБ
ВВ
Всего 4 последовательности, теперь составим список количества возможных последовательностей, в котором ровном 3 буквы А:
ААА**
АА**А
АА*А*
*</span>АА*<span>А
А**АА
А*А*А
А*АА*
**ААА
*А*АА
*ААА*
* Всего 10 возможных вариантов: 10 * 4 = 40 различных последовательностей, содержащих ровно 3 буквы А.</span>
Это случано не cisco ?1. К прикладному относится <u>В) 1С:Бухгалтерия</u> т.к. эта программа предназначена для работы с таблицами и текстом - не является системной.
2.Называют <u>электронными</u>.
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
