Все в одной
=ЕСЛИ(A3 < -1; 1/A3; ЕСЛИ(ABS(A3)<=1; 1; EXP(A3-1)))
три отдельно
=ЕСЛИ(A3 < -1; 1/A3; "-")
=ЕСЛИ(ABS(A3)<=1; 1; "-")
=ЕСЛИ(A3> 1;EXP(A3-1); "-")
max1 - индекс максимального четного элемента
max2 - индекс максимального нечетного элемента
Var
mas: array[1..100] Of integer;
max1,max2,j: integer;
Begin
For j:=1 To 100 Do
Begin
mas[j] := random(100);
If j=1 Then max1 := j
Else
If (mas[j]>mas[max1])And(mas[j] Mod 2=0) Then max1 := j;
If j=1 Then max2 := j
Else
If (mas[j]>mas[max2])And(mas[j] Mod 2=1) Then max2 := j;
write(mas[j],' ');
End;
writeln;
write(mas[max1],'[',max1,'] - ',mas[max2],'[',max2,'] = ',mas[max1]-mas[max2]);
End.
Const N = 50;
var
numbers: array [1..50] of integer;
i, k: integer;
begin
k := 0;
for i:=1 to N do
numbers[i] := Random(100);
for i:=1 to N do
if numbers[i] <> numbers[N] then
inc(k);
write(k);
end.
1:Это преследуется законом
2:Потому что не проверенные источники
3:Затем чтобы с тобой было приятно общатся
4:Чтобы заново не входить