Фрагмент программы
for i:=1 to 4 do
writeln(i*i);
на экране монитора увидим четыре числа каждое с новой строчки
1
4
9
16
Изначально z=0.
Далее мы складываем элементы массива - 3+5+8=16.
Далее выводится число z, равное 16.
Ответ:
uses Math;
y := Power (Abs (x), 1 / 3);
Объяснение:
Abs - модуль числа x
Power - функция возведения в степень, степень 1/3 это корень из 3
Const
N = 15;
Var
A:array[1..N] of integer;
i:integer;
P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
P:=P*A[i]
End;
WriteLn;
WriteLn('P = ',P);
End.
Const
N = 20;
Var
A:array[1..N] of integer;
i:integer;
P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
P:=P*A[i]
End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
if A[i] mod 5 = 0 then Write(' ',A[i])
End.
Var
A:array[1..10000] of integer;
i,n:integer;
S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
Begin
A[i]:=random(31);
Write(' ',A[i]);
if i mod 2 <> 0 then S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.